今天我们的杨老师讲解了聚类算法。
第一种是层次聚类，这个层次聚类按照不同的距离有不同的聚类方法。其核心思想与haffman-tree如出一辙。（以后我将撰写haffman-tree算法介绍）
第二种是k-means算法，这个算法和层次聚类的思想略不一样。

library(RODBC)   
x <-read.csv("C:/Users/huangle/Desktop/data2.csv",sep=",",header = TRUE)
rownames(x)=paste("点",1:12,"")
DIS=dist(x,method="euclidean")  

HCLUST1=hclust(DIS,method="single") #根据距离聚类
plclust(HCLUST1) 
rect.hclust(HCLUST1,k=4) 
ID=cutree(HCLUST1,k=4) 
table(cutree(HCLUST1,k=4) ,paste("Name",1:12,""))