data test1; /*创建数据集*/
input x1-x5 type;
cards;
0.025 0.578 0.008 2.345 2.7 1
0.0005 0.101 0.0012 1.7 7.4 0
0.003 0.445 0.0067 4.8 1 1
0.027 0.232 0.003 4.2 2.2 1
0.9 0.856 0.0065 4.9 0.6 2
0.00023 0.0125 0.001 1.2 8.5 0
0.00047 0.0456 0.005 2.1 6.9 0
0.8 0.899 0.01 3.9 1.1 2
0.00035 0.0346 0.003 2 7 0
0.67 0.9 0.0075 5 0.8 2
0.085 0.666 0.0089 1.3 5.9 0
0.02 0.467 0.0075 3.6 1.9 1
0.12 0.789 0.0078 5.6 0.1 2
0.034 0.348 0.005 3.3 2.9 1
0.5 0.876 0.0098 4.5 0.3 2
;
run;
proc candisc data=test1 out=result; /*执行典型判别分析*/
class type;
var x1-x5;
run;
proc discrim data=result list ; /*执行一般判别分析*/
class type;
var x1-x5;
run;