- proc format;
- value proteinname
- 1='alpha'
- 2='beta'
- ;
- run;
- data test;
- array ar_x[*] x1-x123;
- do i=1 to 50;
- do type=1 to 2;
- do m=1 to dim(ar_x);
- ar_x[m]=rannor(64000);
- end;
- output;
- end;
- end;
- format type;
- drop i m;
- run;
- proc discrim data=test pool=no distance list;
- class type;
- priors prop;
- var x1-x123;
- run;