Agrupe erupções de géiser
Visualize propriedades de erupções do géiser "Old Faithful".
In[1]:=
eruptions = ExampleData[{"Statistics", "OldFaithful"}];
ListPlot[data,
FrameLabel -> {"Eruption time in minutes",
"Waiting time to next eruption in minutes"}, Frame -> True]
Out[1]=
Calcule um classificador que separa erupções.
In[2]:=
c = ClusterClassify[eruptions]
Out[2]=
Visualize os agrupamentos.
In[3]:=
clusters = GatherBy[data, c];
ListPlot[clusters,
FrameLabel -> {"Eruption time in minutes",
"Waiting time to next eruption in minutes"}, Frame -> True]
Out[3]=