# NOT RUN {
# GMAR model
params12 <- c(1.1, 0.9, 0.3, 4.5, 0.7, 3.2, 0.8)
mw12 <- mixingWeights(VIX, 1, 2, params12)
# Restricted GMAR model
params12r <- c(1.4, 1.8, 0.9, 0.3, 3.2, 0.8)
mw12r <- mixingWeights(VIX, 1, 2, params12r, restricted=TRUE)
# StMAR model
params12t <- c(1.1, 0.9, 0.3, 4.5, 0.7, 3.2, 0.8, 5, 8)
mw12t <- mixingWeights(VIX, 1, 2, params12t, StMAR=TRUE)
# Non-mixture version of StMAR model
params11t <- c(0.76, 0.93, 1.35, 2.4)
mw11t <- mixingWeights(VIX, 1, 1, params11t, StMAR=TRUE)
# GMAR model as a mixture of AR(2) and AR(1) models
R <- list(diag(1, ncol=2, nrow=2), as.matrix(c(1, 0)))
params22c <- c(1.2, 0.8, 0.1, 0.3, 3.3, 0.8, 2.8, 0.8)
mw22c <- mixingWeights(VIX, 2, 2, params22c, constraints=TRUE, R=R)
# Such StMAR(3,2) that the AR coefficients are restricted to be
# the same for both regimes and that the second AR coefficients are
# constrained to zero.
params32trc <- c(2.2, 1.8, 0.88, -0.03, 2.4, 0.27, 0.40, 3.9, 1000)
mw32trc <- mixingWeights(VIX, 3, 2, params32trc, StMAR=TRUE,
restricted=TRUE, constraints=TRUE,
R=matrix(c(1, 0, 0, 0, 0, 1), ncol=2))
# }
Run the code above in your browser using DataLab