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