# NOT RUN {
# Structural GMVAR(2, 2), d=2 model identified with sign-constraints:
params222s <- c(-11.964, 155.024, 11.636, 124.988, 1.314, 0.145, 0.094, 1.292,
-0.389, -0.07, -0.109, -0.281, 1.248, 0.077, -0.04, 1.266, -0.272, -0.074,
0.034, -0.313, 0.903, 0.718, -0.324, 2.079, 7.00, 1.44, 0.742)
W_222 <- matrix(c(1, 1, -1, 1), nrow=2, byrow=FALSE)
mod222s <- GMVAR(p=2, M=2, d=2, params=params222s, parametrization="mean",
structural_pars=list(W=W_222))
mod222s
# The same reduced form model, with signs in the second column of W swapped:
swap_W_signs(mod222s, which_to_swap=2)
# The same reduced form model, with signs in both column of W swapped:
swap_W_signs(mod222s, which_to_swap=1:2)
# }
Run the code above in your browser using DataLab