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