# NOT RUN {
x <- 1:10
stretch(x, mean, init = 3)
stretch(x, ~ mean(.), init = 3)
stretcher(x, init = 3)
# stretching a 2-day window for a data frame ----
sx <- pedestrian %>%
filter(Sensor == "Southern Cross Station", Date <= as.Date("2015-01-10"))
sx %>%
stretch(~ quantile(.$Count), init = 48, deframe = FALSE)
# }
Run the code above in your browser using DataLab