################################################### ### 块1号 : ################################################### 数据(USArrests) h = hclust (dist (USArrests))情节(h ) ################################################### ### 块2号 : ################################################### 热图(as.matrix (USArrests )) ################################################### ### 块3号:################################################### 图书馆(ctc) r2xcluster (= ' USArrests_xcluster.txt USArrests,文件 ') ################################################### ### 块4号 : ################################################### = ' USArrests_xcluster.txt r2cluster (USArrests文件 ') ################################################### ### 块5号:################################################### hr = hclust (dist (USArrests)) hc = hclust (dist (t (USArrests ))) ################################################### ### 块6号 : ################################################### 写(hc2Newick(人力资源),文件= ' hclust.newick ') ################################################### ### 块7号:################################################### r2atr (hc、文件=“cluster.atr”)r2gtr(人力资源、文件=“cluster.gtr”)r2cdt(人力资源、hc、USArrests、文件= " cluster.cdt ") ################################################### ### 块8号 : ################################################### hclust2treeview (USArrests、文件=“cluster.cdt”)