options nocenter linesize=72;
goptions colors=(none);
symbol1 v=circle;
title 'Data for Chapter 5 Example';

data table5;
  infile 'C:\TeX\st502\DATA\example5-1.dat';
  input indiv sbp age;

proc print;

proc gplot;
 plot sbp*age/ frame;

proc reg simple;
 model sbp=age /cli clm;
 output out=fit r=res p=pred;

proc gplot;
 plot res*pred /frame;

proc univariate noprint;
 var res;
 histogram res / normal kernel(l=2);
 qqplot res / normal(l=1 mu=est sigma=est);
run;