Data Analysis

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]]
In[]:=
Out[]=
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]
In[]:=
455840
Out[]=
42826/%
In[]:=
3059
32560
Out[]=
N[%]
In[]:=
0.0939496
Out[]=
causals3=Cases[Catenate[#],(x__Integer)x]&/@allresk3;
In[]:=
Length[causals3]
In[]:=
10
Out[]=
Table[Echo@Counts[ResourceFunction["StringOverlapsQ"][First/@#]&/@causals3[[n]]],{n,10}]
In[]:=

»
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
»
{,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}
Out[]=
​
sigs[n_]:=DeleteDuplicates[Sort/@((Rule@@@Partition[#,2])&/@Catenate[Permutations@*Reverse/@Select[IntegerPartitions[n],EvenQ@*Length]])]
In[]:=
sigs[11]
In[]:=
Out[]=
Position[%,{11,14,31}]
In[]:=
{{81}}
Out[]=
Length[%%]
In[]:=
138
Out[]=
81/138.
In[]:=
0.586957
Out[]=