> X<-read.table("F:\\work\\data\\exam2015.csv")
> d <- dist(scale(X))
> method=c("complete", "average", "centroid", "ward")
> for(m in method){
+ hc<-hclust(d, m); class<-cutree(hc, k=5)
+ print(m); print(sort(class))
+ }
错误于hclust(d, m) : 用群集时必需有n >= 2的对象
>
> for(m in method){
+ hc<-hclust(d, m)
+
+ windows()
+ plclust(hc, hang=-1)
+ re<-rect.hclust(hc, k=5, border="red")data
错误: 意外的符号 于
" plclust(hc, hang=-1)
re<-rect.hclust(hc, k=5, border="red")data"
> print(m); print(re)
[1] "complete"
错误于print(re) : 找不到对象're'
> }
|