In[]:=
RulePlot[ResourceFunction["WolframModel"][{{{0,0}}{{0,1},{1,1},{2}},{{0,1},{1,1}}{{0,0},{2}}}]]
Out[]=
In[]:=
SeedRandom[5];ResourceFunction["WolframModel"][{{{0,0}}{{0,1},{1,1},{2}},{{0,1},{1,1}}{{0,0},{2}}},{{0,0}},10,"EventOrderingFunction""Random"]["CausalGraph"]
Out[]=
In[]:=
SeedRandom[1];ResourceFunction["WolframModel"][{{{0,0}}{{0,1},{1,1},{2}},{{0,1},{1,1}}{{0,0},{2}}},{{0,0}},10,"EventOrderingFunction""Random"]["CausalGraph"]
Out[]=
In[]:=
ResourceFunction["MultiwaySystem"]["WolframModel"{{{0,0}}{{0,1},{1,1},{2}},{{0,1},{1,1}}{{0,0},{2}}},{{0,0}},5,"CausalInvariantQ"]
Out[]=
True
In[]:=
ResourceFunction["MultiwaySystem"][​​"WolframModel"{{{0,0}}{{0,1},{1,1},{2}},{{0,1},{1,​​1}}{{0,0},{2}}},{{{0,0}}},5,"CausalGraphStructure"]
Out[]=