powered by
A 3-node path $a--b--c$ is legal iff either $b$ is a collider or $a--b--c$ is a triangle.
legal.path(a, b, c, amat)
amat[a,b] = 2
amat[b,a] = 3
TRUE
FALSE
amat <- matrix( c(0,1,1,0,0, 2,0,1,0,0, 2,2,0,2,1, 0,0,1,0,0, 0,0,2,0,0), 5,5) legal.path(1,3,5, amat) legal.path(1,2,3, amat) legal.path(2,3,4, amat)
Run the code above in your browser using DataLab