# NOT RUN {
x <- rnorm(1000)
Cuestas_Garratt_unit_root(x,max_lags=6,lsm=3)
y <- cumsum(rnorm(1000))
Cuestas_Garratt_unit_root(y,max_lags=12,lsm=2)
data(IBM)
Cuestas_Garratt_unit_root(IBM,max_lags=3,lsm=1)
# }
Run the code above in your browser using DataLab