《多元统计分析》 第1章 (3).pptVIP

* 中国人民大学六西格玛质量管理研究中心 * ?#图3-16?? ?dat35_cor?-?as.dist(1-cor(dat35))?? ?dat35_cs?-?hclust(dat35_cor,?method=single)?? ?par(mfrow=c(1,1))?? ?plot(dat35_cs,?hang?=?-1)?? ?rect.hclust(dat35_cs,?k?=?4)?? ?#计算距离矩阵?? ?dat35_dist?-?dist(dat35,?method?=?euclidean,?diag?=?TRUE,?upper?=?FALSE)?? * 中国人民大学六西格玛质量管理研究中心 * 从输出结果，我们可以得到最大的相关系数为r4,8=0.826,若将各变量分别看为一类,则首先将G4和G8并成一个新类G9,然后再计算G9与其余各类的相关系数,并找到相关系数最大的两类,将两类合并,如此逐次缩小一类,最后可得到如图3-16所示的聚类结果。 * 中国人民大学六西格玛质量管理研究中心 * ?rm(list=ls())?? ?ex3.5?-?read.table(例3-5.txt,?head=TRUE,?fileEncoding=utf8)?? ?dat35?-?ex3.5[,?-1]?? ?rownames(dat35)?-?ex3.5[,?1]?? ?roun