# NOT RUN {
set.seed(12345)
x <- rnorm(1000)
Vougas_2006_unit_root(x, model = 1, max_lags = 6)
set.seed(12345)
y <- cumsum(rnorm(1000))
Vougas_2006_unit_root(x = y ,model = 2, max_lags = 9)
data(IBM)
Vougas_2006_unit_root(x = IBM, model = 3, max_lags = 3)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab