In[]:=
CloudGet["https://wolfr.am/L05ODIuC"];
In[]:=
rrules=Table[{{1,2},{2,3}}RandomInteger[{1,18},{15,2}],500];
In[]:=
samples=ShowSamplesAM[rrules];​​isamples=Rasterize[First[#],BackgroundNone]&/@samples;​​FeatureSpacePlot[isamples,LabelingFunction(Placed[Pane[Erosion[#,1.5],30],Center]&),PlotStyleNone,FeatureExtractor"ImageFeatures"]
Out[]=
In[]:=
rrules2=ParallelTable[RandomWolframModel[{{2,2}}{{7,2}}],500];
In[]:=
rrules2=
Head: List
Length: 500
Byte count: 504096
;
In[]:=
samples=ShowSamplesAM[rrules2];​​isamples=Rasterize[First[#],BackgroundNone]&/@samples;​​FeatureSpacePlot[isamples,LabelingFunction(Placed[Pane[Erosion[#,1.5],30],Center]&),PlotStyleNone,FeatureExtractor"ImageFeatures"]
Out[]=