options ls=72 ps=55;
data a;
infile 'z:\stat706\fiber.txt';
input percent strength;
proc plot;
plot strength*percent;
proc glm;
class percent;
model strength=percent;
means percent/tukey bon;
output out=outa r=resid;
proc plot;
plot resid*percent;
run;