# 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 ----
sx <- pedestrian %>%
filter(Sensor == "Southern Cross Station", Date <= as.Date("2015-01-10"))
sx %>%
tile(~ quantile(.$Count), size = 48, deframe = FALSE)
# }
Run the code above in your browser using DataLab