# NOT RUN {
harvest <- tsibble(
year = rep(2010:2012, 2),
fruit = rep(c("kiwi", "cherry"), each = 3),
kilo = sample(1:10, size = 6),
key = id(fruit), index = year
)
harvest %>%
slide_tsibble(.size = 2)
# }
Run the code above in your browser using DataLab