powered by
This function allows you to make Enders and Siklos(2001) nonlinear cointegration test
Enders_Siklos_2001(y, x, case = 2, max_lags)
series name
series name,
if no lag 1, if one lag 2, if four lag 3, default case=2
maximum lag (Apropriate lag is selected by Akaike Information Criteria)
"Model" Estimated model
"Selected Lag" the lag order
"p1=p2=0 Statistic" the value of the test statistic
"p1=p2 Statistic" the value of the test statistic
"p value" the probability of test statistic
Enders, W., & Siklos, P. L. (2001). Cointegration and threshold adjustment. Journal of Business & Economic Statistics, 19(2), 166-176.
Burak Guris, R Uygulamal<U+0131> Dogrusal Olmayan Zaman Serileri Analizi, DER Yayinevi, 2020.
# NOT RUN { x <- cumsum(rnorm(1000)) y <- cumsum(rnorm(1000)) Enders_Siklos_2001(x, y, max_lags = 6) data(MarketPrices) Enders_Siklos_2001(MarketPrices[,1],MarketPrices[,2], max_lags = 12) # }
Run the code above in your browser using DataLab