In[]:=
est=Import["/Users/sw/Dropbox/Physics/Data/InterestingRules-01.wxf"];
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[With[{w=WolframModelTest[#,Automatic]},GraphicsColumn[{HypergraphPlot[w["FinalState"]],w["EvolutionObject"]["CausalGraph"]}]#]&,est]]
(kernel 16)
WolframModelPlot::invalidEdges:First argument of WolframModelPlot must be list of lists, where elements represent vertices.
Out[]=
$Aborted[]
In[]:=
Take[est,10]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[With[{w=WolframModelTest[#,Automatic]},GraphicsColumn[{HypergraphPlot[w["FinalState"]],w["EvolutionObject"]["CausalGraph"]}]#]&,Take[est,10]]]
(kernel 8)
WolframModelPlot::invalidEdges:First argument of WolframModelPlot must be list of lists, where elements represent vertices.
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[With[{w=WolframModelTest[#,Automatic]},GraphicsColumn[{HypergraphPlot[w["FinalState"]],w["EvolutionObject"]["CausalGraph"]}]#]&,Drop[est,10]]]
Out[]=
In[]:=
In[]:=