Remove updating PT stage distance, as it assumes there is only one no…

…n-walk trip. May need revisiting in the future. Ref #84
ITHIM · Jan 12, 2022 · 822425c · 822425c
1 parent 7337af7
commit 822425c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/add_walk_trips.R b/R/add_walk_trips.R
@@ -48,7 +48,7 @@ add_walk_trips <- function(pt_trips){
 
     # Correct walk trips distance
     walk_trips$stage_distance <- (walk_trips$stage_duration / 60) * VEHICLE_INVENTORY$speed[VEHICLE_INVENTORY$stage_mode=='pedestrian']
-    pt_trips$stage_distance <- pt_trips$stage_distance - walk_trips$stage_distance
+    # pt_trips$stage_distance <- pt_trips$stage_distance - walk_trips$stage_distance
 
     # Recategorise trip_distance_cat for both bus and walk trips
     pt_trips$trip_distance_cat[pt_trips$trip_distance > 0 & pt_trips$trip_distance < DIST_LOWER_BOUNDS[2]] <- DIST_CAT[1]