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