Added SCENARIO_INCREASE parameter to define the total mode share incr…

…ease in each scenario - in line with the Global and Bogota scenario definitions
ITHIM · Jul 31, 2023 · fe0c319 · fe0c319
1 parent d46f8dc
commit fe0c319
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/create_africa_india_scenarios.R b/R/create_africa_india_scenarios.R
@@ -28,7 +28,7 @@ create_africa_india_scenarios <- function(trip_set){
                                   c(47.2, 33.8, 25.8, 37.2), # distance category 2-6km
                                   c(16.0, 58.2, 72.7, 53.1))
 
-  percentage_change <- 0.05
+  percentage_change <- SCENARIO_INCREASE # increase of each mode as percentage of total number of trips.
 
 
   rdr_baseline <- rdr %>% dplyr::select(c('trip_id', 'trip_distance_cat','scenario','trip_mode')) %>% filter() 

diff --git a/R/create_latam_scenarios.R b/R/create_latam_scenarios.R
@@ -28,7 +28,7 @@ create_latam_scenarios <- function(trip_set){
                                      c(2,2,2, 2))
   colnames(scenario_proportions) <- target_distances <- DIST_CAT
   rownames(scenario_proportions) <- modes <- c("cycle", "car", "bus", 'motorcycle')
-  SCENARIO_PROPORTIONS <<- scenario_proportions
+  SCENARIO_PROPORTIONS <<- SCENARIO_INCREASE # increase of each mode as percentage of total number of trips.
   # baseline scenario
   rd_list[[1]] <- rdr
   modes_not_changeable <- c('bus_driver', 'truck', 'car_driver')