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