間欠泉の噴出をクラスタ化する
オールド・フェイスフル・ガイザーの噴出特性を可視化する．
In[1]:=
eruptions = ExampleData[{"Statistics", "OldFaithful"}];
ListPlot[eruptions,
FrameLabel -> {"Eruption time in minutes",
"Waiting time to next eruption in minutes"}, Frame -> True]Out[1]=
噴出を分割する分類子を計算する．
In[2]:=
c = ClusterClassify[eruptions]Out[2]=
クラスタを可視化する．
In[3]:=
clusters = GatherBy[eruptions, c];
ListPlot[clusters,
FrameLabel -> {"Eruption time in minutes",
"Waiting time to next eruption in minutes"}, Frame -> True]Out[3]=
