gtfs <- set_dwelltime(for_rail_gtfs,
trips = for_rail_gtfs$trips$trip_id[1:100],
stops = for_rail_gtfs$stops$stop_id[1:20],
duration = 10)
gtfs <- edit_dwelltime(gtfs,
trips = for_rail_gtfs$trips$trip_id[1:100],
stops = for_rail_gtfs$stops$stop_id[1:20],
factor = 1.5)
get_dwelltimes(gtfs, method = 'detailed')
Run the code above in your browser using DataLab