library(uotm)
ts <- arma.sim(ars = c(-0.9, -1.4, -0.7, -0.6), mas = c(0.5, -0.4), nobs = 100)
tmcb <- arma.mcb(ts, max.p = 4, max.q = 4,
stepwise = TRUE, bsamples = 50, blength = 12)
# the model confidence bounds of time series model selection method
print(tmcb)
Run the code above in your browser using DataLab