# NOT RUN {
# }
# NOT RUN {
# GMAR-model
params12 <- c(0.18281409, 0.92657275, 0.00214552,
0.85725129, 0.68210294, 0.01900299, 0.88342018)
gmar12 <- GSMAR(logVIX, 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