# NOT RUN {
x <- rnorm(1000)
Cuestas_Ordonez_2014_unit_root(x, max_lags = 6)
y <- cumsum(rnorm(1000))
Cuestas_Ordonez_2014_unit_root(y, max_lags = 8)
data(IBM)
Cuestas_Ordonez_2014_unit_root(IBM, max_lags = 20)
# }
Run the code above in your browser using DataLab