# NOT RUN {
# These examples use the data 'eurusd' which comes with the
# package, but in a scaled form.
data <- cbind(10*eurusd[,1], 100*eurusd[,2])
colnames(data) <- colnames(eurusd)
# GMVAR(2,2), d=2 model:
params222 <- c(1.386, -0.765, 1.314, 0.145, 0.094, 1.292, -0.389,
-0.070, -0.109, -0.281, 0.920, -0.025, 4.839, 1.005, 5.928, 1.248,
0.077, -0.040, 1.266, -0.272, -0.074, 0.034, -0.313, 5.855, 3.570,
9.838, 0.740)
mod222 <- GMVAR(data, p=2, M=2, params=params222)
cond_moment_plot(mod222, which_moment="mean")
cond_moment_plot(mod222, which_moment="variance")
cond_moment_plot(mod222, which_moment="mean", grid=TRUE, lty=2)
# }
Run the code above in your browser using DataLab