x <- zoo_simulate(cols = 2)
y_lag1 <- f_detrend_difference(
x = x,
lag = 1
)
y_lag5 <- f_detrend_difference(
x = x,
lag = 5
)
if(interactive()){
zoo_plot(x)
zoo_plot(y_lag1)
zoo_plot(y_lag5)
}
Run the code above in your browser using DataLab