非階層的クラスター分析
dat<-matrix(c(iris[,1],iris[,2],iris[,3],iris[,4]),ncol=4) #フィッシャーのアイリスのデータ kyori<-dist(dat) #距離行列を求める x<-cmdscale(kyori) #MDSによる座標値の計算 loc<-kmeans(x,4) #非階層クラスター分析k-means法 plot(x,col=loc$cluster) #座標値のプロット points(loc$centers,col=1:4,pch=8) #中心点のプロット
