options ls=78;
title "Discriminant - Swiss Bank Notes";
data real;
  infile "D:\Statistics\STAT 505\data\swiss1.txt";
  input length left right bottom top diag;
  type="real";
  run;
data fake;
  infile "D:\Statistics\STAT 505\data\swiss2.txt";
  input length left right bottom top diag;
  type="fake";
  run;
data combine;
  set real fake;
  run;
data test;
  input length left right bottom top diag;
  cards;
214.9 130.1 129.9 9 10.6 140.5
;
  run;
proc discrim data=combine pool=test crossvalidate testdata=test testout=a;
  class type;
  var length left right bottom top diag;
  priors "real"=0.99 "fake"=0.01;
  run;
proc print;
  run;