客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
n<-seq(1,50,by=4)
2(x<-¡USArrests[n,])#print() hc1<-hclust(dist(x),method="complete") 4hc2<-hclust(dist(scale(x)),method="complete") hc3<-hclust(dist(x),method="ave") layout(matrix(c(1,1,2,3),nrow=2,byrow=T)) plot(hc1);plot(hc2);plot(hc3)
library(cluster) 转载于:https://my.oschina.net/u/236959/blog/90519 |
请发表评论