# NOT RUN {
# read gtfs data
poa <- read_gtfs(system.file("extdata/poa.zip", package = "gtfs2gps"))
# filter gtfs data
poa_f <- filter_day_period(poa, period_start = "10:00", period_end = "10:20")
# }
Run the code above in your browser using DataLab