Commit d0dfb138 authored by Aqeel Padaria's avatar Aqeel Padaria

correct stationarity test lag value (add -1)

parent 298e2cbe
......@@ -520,7 +520,7 @@ server = shinyServer(
if(d==1)
adf <- paste0(stationarityTest@test.name, ": Data is stationary")
if(d>1)
adf <- paste0(stationarityTest@test.name, ": Data is non-stationary; Stationarity achieved after differencing order ", d)
adf <- paste0(stationarityTest@test.name, ": Data is non-stationary; Stationarity achieved after differencing order ", d-1)
for(i in 1:15)
{
......@@ -549,7 +549,7 @@ server = shinyServer(
if(d==1)
kpss <- paste0(stationarityTest$method, ": Data is stationary")
if(d>1)
kpss <- paste0(stationarityTest$method, ": Data is non-stationary; Stationarity achieved after differencing order ", d)
kpss <- paste0(stationarityTest$method, ": Data is non-stationary; Stationarity achieved after differencing order ", d-1)
stationarity <- paste(adf, kpss, sep = "\n")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment