diff --git a/R/add_walk_trips.R b/R/add_walk_trips.R index a2fa1b20..1f1c35a5 100644 --- 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]