In[]:=
PlotCA[PerturbedCellularAutomaton[{299459058088077823758143088095350287424,4,1},{{1},0},{110,{-110,110}},<|{23,111}->2|>]]
Out[]=
In[]:=
PlotCA[PerturbedCellularAutomaton[{299459058088077823758143088095350287424,4,1},{{1},0},{110,{-110,110}},<|{23,111}->2,{41,109}->3|>]]
Out[]=
In[]:=
TestCALifeTime[First@PerturbedCellularAutomaton[{299459058088077823758143088095350287424,4,1},{{1},0},{110,{-110,110}},<|{23,111}->2,{41,109}->3|>]]
Out[]=
101
In[]:=
PlotCA[PerturbedCellularAutomaton[#,{{1},0},{110,{-110,110}},<|{23,111}->2,{41,109}->3|>]]&/@quickneutral[{299459058088077823758143088095350287424,4,1}]
Out[]=

,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,

Style[Row[KeyValueMap[Labeled[#1,Text[Style[StringTemplate["(``)"][#2],Small]]]&,​​ReverseSort[Counts[​​PlotCA[PerturbedCellularAutomaton[#,{{1},0},{130,{-110,110}},<|{23,111}->2|>],"MaxWidth"->{100,130},"Trim"->{None,None},ImageSize->{Automatic,150},"Graphics"->firststepdiffarrow[#]]&/@quickneutral[{299459058088077823758143088095350287424,4,1}]]]],Spacer[4]],LineSpacing->{1,14}]

Feature Plot

In[]:=
SeedRandom[1111];​​rand=RandomSample[allperts[CellularAutomaton[{299459058088077823758143088095350287424,4,1},{{1},0},{102,{-200,200}}],4],400];​​​​Module[{ru={299459058088077823758143088095350287424,4,1}},FeatureSpacePlot[With[{pca=PerturbedCellularAutomaton[ru,{{1},0},{102,{-200,200}},#,"ReturnPerturbations"->False]},Rasterize[PlotCA[pca]]->PlotCA[pca,"Trim"->{3,None}]]&/@rand,LabelingSize->60,Frame->True,FrameTicks->None,FrameStyle->Gray,RandomSeeding->64453]]

ML Predictions

Treatments that heal completely from all diseases
​

THIS JUST CRASHES:

Clustering Tree

Clustering