data(CM_Factors_GVAR)
N <- 3
GVARinputs <- list()
GVARinputs$Economies <- c("China", "Brazil", "Mexico", "Uruguay")
GVARinputs$GVARFactors <- FactorsGVAR
GVARinputs$VARXtype <- "unconstrained"
GVARinputs$Wgvar <- matrix( c(0, 0.83, 0.86, 0.38,
0.65, 0, 0.13, 0.55,
0.32, 0.12, 0, 0.07,
0.03, 0.05, 0.01, 0), nrow = 4, ncol = 4)
GVAR(GVARinputs, N)
Run the code above in your browser using DataLab