%newsas(therapy);
title 'Simple regression example: Personality Test vs. Therapy';
 
options ls=75;
data THERAPY;
     input NAME $    SEX $
           PERSTEST  THERAPY ;
     label PERSTEST = 'Personality Test Score'
           THERAPY  = 'Improvement in Therapy' ;
datalines;
John    M 26 32
Susan   F 24 40
Mary    F 22 44
Paul    M 33 44
Jenny   F 27 48
Rick    M 36 52
Cathy   F 30 56
Robert  M 38 56
Lisa    F 30 60
Tina    F 34 68
;
proc print;
 
proc plot;
     plot   THERAPY * PERSTEST = SEX;
 
proc reg data=THERAPY;
     model THERAPY = PERSTEST / P ;
     plot residual. * pred. = name ;
     id name;
run;