data(GVARFactors)
GVARinputs <- list(
Economies = c("China", "Brazil", "Mexico", "Uruguay"),
GVARFactors = GVARFactors, 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)
N <- 3
GVARPara <- GVAR(GVARinputs, N)
Run the code above in your browser using DataLab