# NOT RUN {
# These are long running examples and use parallel computing
# Running the below examples takes approximately 20 seconds.
data(eurusd, package="gmvarkit")
data <- cbind(10*eurusd[,1], 100*eurusd[,2])
colnames(data) <- colnames(eurusd)
# GMVAR(1,2) model
fit12 <- fitGMVAR(data, p=1, M=2, ncalls=2, seeds=7:8)
fit12
fit12_2 <- alt_gmvar(fit12, which_largest=2)
fit12_2
# }
Run the code above in your browser using DataLab