PROC IMPORT OUT= WORK.iris
            DATAFILE= "Z:\764-F11\data\iris.txt" 
            DBMS=TAB REPLACE;
     GETNAMES=YES;
     DATAROW=2; 
RUN;

PROC SGSCATTER;
  MATRIX SepalLength SepalWidth PetalLength PetalWidth / GROUP=Species;
RUN;

PROC DISCRIM DATA=iris;
  CLASS Species;
RUN;

PROC SURVEYSELECT METHOD=SRS N=5 OUTALL DATA=iris OUT=Iris2;
  STRATA Species;
RUN;
DATA Train;
  SET Iris2;
  IF Selected=1 THEN OUTPUT;
  KEEP SepalLength SepalWidth PetalLength PetalWidth Species;
RUN;
DATA Test;
  SET Iris2;
  IF Selected=0 THEN OUTPUT;
  KEEP SepalLength SepalWidth PetalLength PetalWidth Species;
RUN;

PROC DISCRIM DATA=Train TESTDATA=Test TESTOUT=Pred;
  CLASS Species;
RUN;