Data Analysis

In[]:=
allresk3=Table[Import["/Users/sw/Dropbox/Physics/Data/MWCausalInvariance-k3/"<>ToString[n]<>".wxf"],{n,10}];
In[]:=
totalsk3=Counts/@Map[Last/@#&,GatherBy[{StringLength[StringJoin[Level[First[#],{-1}]]],#[[2]]}&/@Catenate[Catenate[allresk3]],First]]
Out[]=
In[]:=
Total[1165586,Null224721,$Aborted42826,41274,5503,6315,216531,33839,865,7145,926,109]
Out[]=
455840
In[]:=
42826/%
Out[]=
3059
32560
In[]:=
N[%]
Out[]=
0.0939496
In[]:=
causals3=Cases[Catenate[#],(x__Integer)x]&/@allresk3;
In[]:=
Length[causals3]
Out[]=
10
In[]:=
Table[Echo@Counts[ResourceFunction["StringOverlapsQ"][First/@#]&/@causals3[[n]]],{n,10}]
»

»
False2
»
False6,True1
»
False30,True7
»
False94,True23
»
False441,True219
»
False1530,True693
»
False6597,True4705
»
False23904,True16755
»
False98364,True89929
Out[]=
{,False2,False6,True1,False30,True7,False94,True23,False441,True219,False1530,True693,False6597,True4705,False23904,True16755,False98364,True89929}
Out[]=
{,False2,False4,True1,False15,True7,False29,True16,False90,True98,False196,True221,False580,True992,False1335,True2509,False3790,True9201}
​
In[]:=
sigs[n_]:=DeleteDuplicates[Sort/@((Rule@@@Partition[#,2])&/@Catenate[Permutations@*Reverse/@Select[IntegerPartitions[n],EvenQ@*Length]])]
In[]:=
sigs[11]
Out[]=
In[]:=
Position[%,{11,14,31}]
Out[]=
{{81}}
In[]:=
Length[%%]
Out[]=
138
In[]:=
81/138.
Out[]=
0.586957