Note that some GTFS feeds contain a frequency data frame already.
Consider using this instead, as it will be more accurate than what
tidytransit calculates.
# NOT RUN {data(gtfs_obj)
gtfs_obj <- get_route_frequency(gtfs_obj)
x <- order(gtfs_obj$.$routes_frequency$median_headways)
head(gtfs_obj$.$routes_frequency[x,])
# }