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[#],BackgroundNone]&/@samples;FeatureSpacePlot[isamples,LabelingFunction(Placed[Pane[Erosion[#,1.5],30],Center]&),PlotStyleNone,FeatureExtractor"ImageFeatures"]
Out[]=
In[]:=
rrules2=ParallelTable[RandomWolframModel[{{2,2}}{{7,2}}],500];
In[]:=
rrules2=;
In[]:=
samples=ShowSamplesAM[rrules2];isamples=Rasterize[First[#],BackgroundNone]&/@samples;FeatureSpacePlot[isamples,LabelingFunction(Placed[Pane[Erosion[#,1.5],30],Center]&),PlotStyleNone,FeatureExtractor"ImageFeatures"]
Out[]=