Skip to content

Commit d6b6547

Browse files
committed
Rel 0.1.0
1 parent f0e9651 commit d6b6547

17 files changed

Lines changed: 75 additions & 77 deletions

File tree

examples/SR/SR6.4.2/sr6.4.2.jl

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -35,7 +35,7 @@ d = OrderedDict(
3535
);
3636
u = [:u]
3737

38-
dag = DAG("sr6_4_2", d, df);
38+
dag = DAG("sr6_4_2", d, df=df);
3939
show(dag)
4040

4141
fname = joinpath(mktempdir(), "sr6.4.2.dot")
@@ -46,16 +46,16 @@ to_ggm(dag) |> display
4646

4747
display(dag.s); println()
4848

49-
bs = basis_set(dag, debug=true)
49+
bs = basis_set(dag)
5050
display(bs); println()
5151

5252
t = shipley_test(dag)
5353
display(t); println()
5454

5555
f = [:a]; s = [:b]; conditioning_set = [:u, :c]
5656

57-
e = d_separation(dag, f, s, conditioning_set)
58-
println("d_separation($(dag.name), $f, $s, $conditioning_set) = $e")
57+
e = d_separation(dag, f, s, cset=conditioning_set)
58+
println("d_separation($(dag.name), $f, $s, cset=$conditioning_set) = $e")
5959
println()
6060

6161
adjustmentsets = adjustment_sets(dag, :x, :y)

examples/SR/SR6.4.3/SR6.4.3.png

-35.3 KB
Loading

examples/SR/SR6.4.3/sr6.4.3.jl

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -26,7 +26,7 @@ d = OrderedDict(
2626
:m => [:a]
2727
);
2828

29-
dag = DAG("sr6_4_3", d, df);
29+
dag = DAG("sr6_4_3", d, df=df);
3030
show(dag)
3131

3232
fname = ProjDir * "/sr6.4.3.dot"
@@ -43,10 +43,9 @@ t = shipley_test(dag)
4343
display(t); println()
4444

4545
f = :w; s = :d;
46-
#cond = [:m, :a]
4746

48-
e = d_separation(dag, [f], [s], [:m, :a])
49-
println("d_separation($(dag.name), $f, $s, $cond) = $e\n")
47+
e = d_separation(dag, [f], [s], cset=[:m, :a])
48+
println("d_separation($(dag.name), $f, $s, cset=[:m, :a]) = $e\n")
5049

5150
#ap = all_paths(dag, f, s)
5251
ap = all_paths(dag, f, s)

examples/SR/chain/AMD.jl

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -34,7 +34,7 @@ d = OrderedDict(
3434
:D => [:M]
3535
);
3636

37-
dag = DAG("chain", d, df);
37+
dag = DAG("chain", d; df=df);
3838
show(dag)
3939

4040
display(dag.s); println()
@@ -46,10 +46,10 @@ end
4646
println()
4747

4848
f = [:A]; s = [:D]; sel = vcat(f, s)
49-
cond = [:M]
49+
cset = [:M]
5050

5151
e = d_separation(dag, f, s)
5252
println("d_separation($(dag.name), $f, $s) = $e")
5353

54-
e = d_separation(dag, f, s, cond)
55-
println("d_separation($(dag.name), $f, $s, $cond) = $e")
54+
e = d_separation(dag, f, s; cset=cset)
55+
println("d_separation($(dag.name), $f, $s; cset=$cset) = $e")

examples/SR/chain/AMD_chain_1.png

-11 KB
Loading

examples/SR/chain/AMD_df_1.png

-6.66 KB
Loading

examples/SR/fork/AMD.jl

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -32,7 +32,7 @@ d = OrderedDict(
3232
:D => [:A]
3333
);
3434

35-
dag = DAG("fork_correlated", d, df);
35+
dag = DAG("fork_correlated", d, df=df);
3636
show(dag)
3737

3838
display(dag.s); println()
@@ -44,13 +44,13 @@ end
4444
println()
4545

4646
f = [:M]; s = [:D]; sel = vcat(f, s)
47-
cond = [:A]
47+
cset = [:A]
4848

4949
e = d_separation(dag, f, s)
5050
println("d_separation($(dag.name), $f, $s) = $e")
5151

52-
e = d_separation(dag, f, s, cond)
53-
println("d_separation($(dag.name), $f, $s, $cond) = $e")
52+
e = d_separation(dag, f, s, cset=cset)
53+
println("d_separation($(dag.name), $f, $s, cset=$cset) = $e")
5454
println()
5555
N = 100
5656
df = DataFrame();
@@ -82,7 +82,7 @@ d = OrderedDict(
8282
:D => [:A]
8383
);
8484

85-
dag = DAG("fork_correlated", d, df);
85+
dag = DAG("fork_correlated", d, df=df);
8686
show(dag)
8787

8888
display(dag.s); println()
@@ -94,13 +94,13 @@ end
9494
println()
9595

9696
f = :M; s = :D; sel = vcat(f, s)
97-
cond = :A
97+
cset = :A
9898

9999
e = d_separation(dag, f, s)
100100
println("d_separation($(dag.name), $f, $s) = $e")
101101

102-
e = d_separation(dag, f, s, cond)
103-
println("d_separation($(dag.name), $f, $s, $cond) = $e")
102+
e = d_separation(dag, f, s, cset=cset)
103+
println("d_separation($(dag.name), $f, $s, cset=$cset) = $e")
104104

105105
as = adjustment_sets(dag, :A, :D)
106106
as |> display

examples/SR/fork/AMD_df_1.png

3.29 KB
Loading

examples/SR/fork/AMD_df_2.png

-1.09 KB
Loading

examples/SR/fork/AMD_fork_1.png

-691 Bytes
Loading

0 commit comments

Comments
 (0)