# NOT RUN {
# specify VAR(1) model parameters
A <- matrix(c(-0.1, -0.3, 0,
0.5, 0, 0,
0, 0, -0.4), byrow=TRUE, ncol=3)
P <- matrix(c( 1, 0.5, 0,
0.5, 1, 0,
0, 0, 1), byrow=TRUE, ncol=3)
# adjacency matrix of (global) conditional independencies.
CIGofVAR1(A, P, type="global")
# }
Run the code above in your browser using DataLab