options ls=78 formdlim='-';

data d1;
  input grp y1 y2;
  cards;
1 34.8 54.9
1 50.8 38.4
1 53.6 35.7
1 33.9 49.1
1 35.7 52
1 35.7 48
1 42.5 51.4
1 80.7 31.5
1 38.8 47.4
1 61 30.5
1 66.3 22
1 46.8 36.6
1 59.6 29.6
1 46.3 38.4
1 50.5 48
1 42.6 56.7
1 61.6 38.1
1 47.8 47.5
1 41.5 42.1
1 62.4 35.1
2 38.4 45.4
2 60.3 56.4
2 41.7 72.1
2 50.5 61.6
2 69.4 77
2 26.8 43.6
2 49.6 75.3
2 53.2 67.9
2 45.3 59.7
2 32.4 50.4
2 33.1 51.2
2 34.5 74
2 44.1 45.9
2 34.5 53.6
2 44.7 92.2
2 27.1 67.9
2 39.2 56.8
2 15.3 41
2 43.3 41.3
2 27.5 63.2
;
data d2;
  y1 = 45;
  y2 = 50;
  grp = .;
run;

proc discrim data=d1 testdata=d2 method=normal pool=no testout=d3;
 class grp;
 var y1 y2;
run;

proc print data=d3;
run;
quit;