# NOT RUN {
# GMAR model with intercept parametrization
params12 <- c(0.183, 0.927, 0.002, 0.857, 0.682, 0.019, 0.883)
gmar12 <- GSMAR(data=logVIX, p=1, M=2, params=params12, model="GMAR",
calc_std_errors=TRUE)
summary(gmar12)
# Swap to mean parametrization
gmar12 <- swap_parametrization(gmar12)
summary(gmar12)
# }
Run the code above in your browser using DataLab