/*-----------------------------------------------------------------
            S A S   S A M P L E   L I B R A R Y                   
                                                                  
      NAME: INTDISC                                               
     TITLE: Example From Intro to SAS Discriminant Procs          
   PRODUCT: SAS/STAT                                              
    SYSTEM: ALL                                                   
      KEYS: DISCRIM                                               
     PROCS: CANDISC SGPLOT                                        
      DATA:                                                       
                                                                  
   SUPPORT: saswfk                UPDATE: July 25, 2010           
       REF:                                                       
      MISC:                                                       
                                                                  
-----------------------------------------------------------------*/

data random;
   drop n;

   Group = 'H';
   do n = 1 to 20;
      x = 4.5 + 2 * normal(57391);
      y = x + .5 + normal(57391);
      output;
   end;

   Group = 'O';
   do n = 1 to 20;
      x = 6.25 + 2 * normal(57391);
      y = x - 1 + normal(57391);
      output;
   end;

run;

proc sgplot noautolegend;
   scatter y=y x=x / markerchar=group group=group;
run;

proc candisc anova;
   class Group;
   var x y;
run;