# NOT RUN {
# examples from base
difference(1:10, 2)
difference(1:10, 2, 2)
x <- cumsum(cumsum(1:10))
difference(x, lag = 2)
difference(x, differences = 2)
# Use order_by if data not already ordered (example from dplyr)
tsbl <- tsibble(year = 2000:2005, value = (0:5) ^ 2, index = year)
scrambled <- tsbl %>% slice(sample(nrow(tsbl)))
wrong <- mutate(scrambled, diff = difference(value))
arrange(wrong, year)
right <- mutate(scrambled, diff = difference(value, order_by = year))
arrange(right, year)
# }
Run the code above in your browser using DataLab