例6.3.2.sas

SAS 源码 《应用多元分析》王学民编著的SAS程序

data examp632(type=distance);
   array x(8) x1-x8;
   input  v $ x1-x8;
   do i=1 to 8;
     x(i)=1-x(i);
   end;
   drop i;
   cards;
x1 1.000  .     .     .     .     .     .     .
x2  .846 1.000  .     .     .     .     .     .
x3  .805  .881 1.000  .     .     .     .     .
x4  .859  .826  .801 1.000  .     .     .     .
x5  .473  .376  .380  .436 1.000  .     .     .
x6  .398  .326  .319  .329  .762 1.000  .     .
x7  .301  .277  .237  .327  .730  .583 1.000  .
x8  .382  .415  .345  .365  .629  .577  .539 1.000
;
proc print data=examp632;
run;
proc cluster data=examp632 method=com;
   var x1-x8;
   id  v;
proc tree horizontal;
   id  v;
run;