ptions ls=75 ps=60 nocenter;
goptions colors=(none) device=win target=winprtm rotate=landscape ftext=swiss
   hsize=8.0in vsize=6.0in htext=1.5 htitle=1.5 hpos=60 vpos=60
   horigin=0.5in vorigin=0.5in;

data one;
 infile 'c:\saswork\data\tensile.dat';
 input percent strength time;

title1 ' example';
proc print data=one; run;

symbol1 v=circle i=none;
title1 'Plot of Strength vs Percent Blend';
proc gplot data=one;  plot strength*percent/frame; run;

proc boxplot;
 plot strength*percent/boxstyle=skeletal pctldef=4;

proc glm;
 class percent; model strength=percent;
 output out=oneres p=pred r=res; run;

proc sort; by pred;
symbol1 v=circle i=sm50; title1 'Residual Plot';
proc gplot;  plot res*pred/frame; run;

proc univariate data=oneres pctldef=4 normal;
 var res;  qqplot res / normal (L=1 mu=est sigma=est);
 histogram res / normal; run;

symbol1 v=circle i=none;
title1 'Plot of residuals vs time';
proc gplot; plot res*time / vref=0 vaxis=-6 to 6 by 1;
run;
quit;