# \donttest{
## These are long running examples that use parallel computing!
## The below examples take around 30 seconds to run.
# Structural GMVAR(2, 2), d=2 model with recursive identification
# with the AR matrices restricted to be the identical across the regimes:
W22 <- matrix(c(1, NA, 0, 1), nrow=2, byrow=FALSE)
C_mat <- rbind(diag(2*2^2), diag(2*2^2))
fit22sc <- fitGSMVAR(gdpdef, p=2, M=2, constraints=C_mat,
structural_pars=list(W=W22), ncalls=1, seeds=1)
# Test the null:
Rao_test(fit22sc)
# }
Run the code above in your browser using DataLab