fenlei.sas

是一个分类算法

data D742;
     input group $ X1-X4;
     cards;
1      13      .     117.377      155
2      14      .      .           155
3      14      23.076     .      155
4      14      .      117.377      155
5      13      .     .      155
6      13      .      .      155
7      14      23.076      .      155
8      14      .      117.377      155
9      13      .     .      155
10      14      .      .      155
11      13      23.076      .      155
12      14      .      117.377      155
13      13     .      .      155
14      14      .      .      155
15      14      23.076      .      155
16      13      .      117.377      155
17      14      .      .      155
18      13      .      .      155
19      13      23.076     .      155
20      14     .      117.377      155
21      14     .     .      155
22      14      .      .      155
23      14      23.076     .      155
24      13      .      117.377      155
25      13      .      .      155
26      14      .     .      155
27      14      23.076      .      155
28      13      .      117.377      155
29      13      .      .      155
30      13      .     .      155
31      13      23.076      .      155
32      13      .      117.377      155
33      13      .      .      155
34      14      .      .      155
35      14      23.076     .      155
36      14      .      117.377      155
37      14      .     .     155
38      14      .     .      155
39      14      23.076      .      155
40      15      .      117.377      155
41      15      .      .      155
42      15      .     .      155
43      15      23.076     .      155
44      15      .      117.377      155
45      15      .      .     155
46      15      .      .      155
47      15      23.076      .      155
48      15      .      117.377      155
49      15      .    .      155
50      15     .      .      155
;
proc print data=D741;
run;
proc cluster data=D741 method-ave std pesudo ccc
outtree=B741;
var X1-X4;  id group;
proc tree data=B741 horizontal graphics;
title"shiyong lei pingjun fa d puxi ju lei tu"
                                              run;
proc cluster data=D741 method=med std pseudo ccc
outtree=B741;
var X1-X6; id group;
proc tree data=B741 horizontal graphics;
title'zhong jian juli fa de puxi ju lei tu';
run;
proc cluster data=D741 method=WARD std pseudo ccc
outtree=B741;
var X1-X4; id group;
proc tree data=B741 horizontal graphics n=5 out=C741;
copy X1-X4;
title'ke bian ju ping jun fa';
run;
proc sort data=C741;
by cluster;
proc means data=C741;
by cluster;
var X1-X4;
run;