分子をその特性に基づいてクラスタ化する
ChemicalDataから酸のデータをロードし，化学式と特性を抽出する．
In[1]:=
acids = Take[ChemicalData["Acids"], {3, 18}]Out[1]=
In[2]:=
properties =
Outer[ChemicalData, acids, {"MolarMass", "MeltingPoint"}, 1]Out[2]=
In[3]:=
formulas = ChemicalData[#, "Formula"] & /@ acidsOut[3]=
特性に基づいた酸の階層的なクラスタを可視化する．
In[4]:=
ClusteringTree[properties -> formulas]Out[4]=
