poa <- read_gtfs(system.file("extdata/poa.zip", package="gtfs2gps")) |>
gtfstools::filter_by_shape_id("T2-1") |>
gtfstools::filter_by_weekday(c("monday", "wednesday")) |>
filter_single_trip()
poa_gps <- gtfs2gps(poa)
poa_gps_new <- adjust_speed(poa_gps)
Run the code above in your browser using DataLab