原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
实验报告13
实验十三 谱系聚类
实验目的和要求
掌握谱系聚类分析的理论与方法、模型的建立；掌握利用谱系聚类分析的SAS
过程解决有关实际问题.
实验要求:编写程序，结果分析．
实验内容：6.6
方法一：MATLAB
源代码：
d=[2 2 7 6 6 6 6 7 9 9 1 5 4 6 6 6 7 8 9 6 5 6 5 5 6 8 9 5 9 9 9 10 8 9 7 7 7 8 9 9 2 1 5 10 9 1 3 10 9 4 10 9 10 9 8];
z1=linkage(d,single);
figure(1)
H1=dendrogram(z1);
z2=linkage(d,complete);
figure(2)
H1=dendrogram(z2);
z3=linkage(d,average);
figure(3)
H1=dendrogram(z3);
z4=linkage(d,centroid);
figure(4)
H1=dendrogram(z4);
结果：
最短距离谱系图
最长距离谱系图
类平均距离谱系图
重心距离谱系图
方法二：SAS
data exam6_6 (type=distance);
input country $ x1-x11;
cards;
x1 0 2 2 7 6 6 6 6 7 9 9
x2 2 0 1 5 4 6 6 6 7 8 9
x3 2 1 0 6 5 6 5 5 6 8 9
x4 7 5 6 0 5 9 9 9 10 8 9
x5 6 4 5 5 0 7 7 7 8 9 9
x6 6 6 6 9 7 0 2 1 5 10 9
x7 6 6 5 9 7 2 0 1 3 10 9
x8 6 6 5 9 7 1 1 0 4 10 9
x9 7 7 6 10 8 5 3 4 0 10 9
x10 9 8 8 8 9 10 10 10 10 0 8
x11 9 9 9 9 9 9 9 9 9 8 0
;
run;
解 （1）最短距离法
proc cluster data=exam6_6 method=sin std nonorm nosquare outtree=tree1;
var x1-x11;
id country;
run;
proc tree data=tree1 graphics horizontal out=out1 nclusters=4;
id country;
proc print data=out1;
run;
The SAS System 14:17 Friday, November 12, 2012 5
The CLUSTER Procedure
Single Linkage Cluster Analysis
Cluster History
T
Min i
NCL --Clusters Joined--- FREQ Dist e
10 x2 x3 2 1 T
9 x6 x8 2 1 T
8 CL9 x7 3 1
7 x1 CL10 3 2
文档评论（0）