OPTIONS LS=72;

DATA;
INPUT AGE SBP;
CARDS;
39  144
47  220
45  138
47  145
65  162
46  142
67  170
42  124
67  158
56  154
64  162
56  150
59  140
34  110
42  128
48  130
45  135
17  114
20  116
19  124
36  136
50  142
39  120
21  120
44  160
53  158
63  144
29  130
25  125
69  175
;
PROC PRINT;


PROC CORR;
   VAR AGE SBP;

PROC REG;
   MODEL SBP=AGE / R CLI CLM;
   OUTPUT OUT=REGOUT
   P=PRED
   R=RESID
   L95=L95
   U95=U95
   L95M=L95M
   U95M=U95M;

PROC PRINT DATA=REGOUT;

PROC PLOT;
   PLOT SBP*AGE PRED*AGE='P'
        L95M*AGE='L' U95M*AGE='U' / OVERLAY;
run;

PROC PLOT;
   PLOT SBP*AGE PRED*AGE='P' L95*AGE='D'
        U95*AGE='C' /OVERLAY;
run;


   PLOT RESID*AGE;  
run;