title'判別分析';
data ex;input leibie$ x1 x2 @@;
cards;
Af 1.24 1.72 Af 1.36 1.74 Af 1.38 1.64 Af 1.38 1.82 Af 1.38 1.90
Af 1.40 1.70 Af 1.48 1.82 Af 1.54 1.82 Af 1.56 2.08 Apf 1.14 1.78
Apf 1.18 1.96 Apf 1.20 1.86 Apf 1.26 2.00 Apf 1.28 2.00 Apf 1.30 1.96
;
proc plot;plot x2*x1='*';
data ex1;input x1 x2 @@;
cards;
1.24 1.80 1.28 1.84 1.40 2.04
;
proc discrim data=ex testdata=ex1 anova manova simple list testout=ex2;
class leibie;
proc print data=ex2;run;