# NOT RUN {
# tiling over a vector ----
x <- 1:10
tile(x, sum, size = 3)
tile(x, ~ sum(.), size = 3)
tiler(x, size = 3)
# tiling over a 2-day window for hourly data ----
# }
# NOT RUN {
pedestrian %>%
split_by(Sensor) %>%
purrr::map_dfr(~ tile_dfr(., ~ quantile(.$Count), size = 48))
# }
Run the code above in your browser using DataLab