Mercurial > hg > camir-ismir2012
diff toolboxes/FullBNT-1.0.7/bnt/general/dsep.m @ 0:cc4b1211e677 tip
initial commit to HG from
Changeset:
646 (e263d8a21543) added further path and more save "camirversion.m"
| author | Daniel Wolff |
|---|---|
| date | Fri, 19 Aug 2016 13:07:06 +0200 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/toolboxes/FullBNT-1.0.7/bnt/general/dsep.m Fri Aug 19 13:07:06 2016 +0200 @@ -0,0 +1,15 @@ +function sep = dsep(X, Y, S, G) +% DSEP Is X indep Y given S wrt DAG G? +% sep = dsep(X, Y, S, G) +% +% Instead of using the Bayes-Ball criterion, we see if S separates X and Y +% in the moralized ancestral graph. + +conn = reachability_graph(G); +M = myunion(myunion(X, Y), S); +[A,junk] = find(conn(:, M)); +A = unique(A); +A = myunion(A, M); +GM = moralize(G(A,A)); +%sep = graph_separated(GM, X, Y, S); +sep = graph_separated(GM, find_equiv_posns(X,A), find_equiv_posns(Y,A), find_equiv_posns(S,A));