options ps=54 ls=76 nodate nonumber;

data muscle2;
infile 'C:\data\muscle2.dat';
input m w h;
run;

proc plot hpct=50 vpct=50;
plot m*w m*h w*h;
run;

proc reg;
model h = m w / r influence vif;
run;
quit;