/****************************************************************/

  /*          SAS SAMPLE LIBRARY                                  */

  /*                                                              */

  /*    NAME: INTDISC                                             */

  /*   TITLE: EXAMPLE FROM INTRO TO SAS DISCRIMINANT PROCS        */

  /* PRODUCT: SAS/STAT                                            */

  /*  SYSTEM: ALL                                                 */

  /*    KEYS: DISCRIM                                             */

  /*   PROCS: CANDISC PLOT                                        */

  /*    DATA:                                                     */

  /*                                                              */

  /*     REF:                                                     */

  /*    MISC:                                                     */

  /*                                                              */

  /****************************************************************/

 

 data random;

    drop n;

    group='H';

    do n=1 to 20;

       x=4.5+2*rannor(57391);

       y=x+.5+rannor(57391);

       output;

       end;

    group='O';

    do n=1 to 20;

       x=6.25+2*rannor(57391);

       y=x-1.+rannor(57391);

       output;

       end;

 run;

 

 proc plot;

    plot y*x=group;

 run;

 

 proc candisc anova;

    class group;

    var x y;

 run;