data test; /*创建判别分析数据*/
input x1-x5 type;
cards;
195 119 1815 43 28 3
386 12 1908 202 32 1
225 131 1516 115 36 2
369 228 1537 150 21 2
212 240 1851 174 38 2
211 276 2088 248 38 2
208 254 1483 205 32 2
191 116 1552 299 25 3
406 190 1773 288 37 1
12 222 1735 27 30 4
140 66 1931 114 34 3
31 272 1664 69 28 4
314 175 2009 85 39 2
296 193 1636 183 21 2
442 77 1241 24 31 2
;
run;
proc stepdisc data=test stepwise; /*逐步判别分析筛选变量*/
class type;
var x1-x5;
run;

data test2; /*创建待判别分析的数据集*/
input x1-x5;
cards;
253 169 1910 175 25
186 280 2277 213 37
97 107 2048 89 26
285 200 1914 227 33
332 223 1630 224 21
;
run;
proc discrim data=test testdata=test2 list testlist; /*判别分析*/
class type;
var x1 x2 x4;
run;