# NOT RUN {
# }
# NOT RUN {
# GMAR model
params12 <- c(1.7, 0.85, 0.3, 4.12, 0.73, 1.98, 0.63)
gmar12 <- GSMAR(simudata, 1, 2, params12)
pred <- predict(gmar12, n_ahead=10, plotRes=FALSE, pi=c(0.8, 0.9, 0.99), pi_type="two-sided")
plot(pred, nt=50)
# }
Run the code above in your browser using DataLab