options ls=78;

data class7;

infile "class7.dat";

input sn v1 v2 v3;

crv1 = v1**3;

sqv1 = v1**2;

run;

proc plot data=class7;

plot v2*v1 v3*v1;

run;

proc reg data=class7 alpha = .05;

model v2=crv1;

title "regression of v2 by cubed root of v1";

run;

print cli clm;

plot v2*crv1 pred.*crv1 / overlay;

title "plot of v2 by cubed root of v1 with best fitting line";

run;

plot pred.*crv1 u95m.*crv1 l95m.*crv1/ overlay;

title "plot of v2 by cubed root of v1 best fitting line and confidence limits of the mean";

run;

proc reg data=class7 alpha = .05;

model v3=v1;

title "regression of v3 by v1";

run;

print cli clm;

plot v3*v1 pred.*v1 / overlay;

title "plot of v3 by v1 with best fitting line";

run;

plot pred.*v1 u95m.*v1 l95m.*v1/ overlay;

title "plot of v3 by v1 best fitting line and confidence limits of the mean";

run;

proc reg data=class7 alpha = .05;

model v3=sqv1;

title "regression of v3 by square of v1";

run;

print cli clm;

plot v3*sqv1 pred.*sqv1 / overlay;

title "plot of v3 by square of v1 with best fitting line";

run;

plot pred.*sqv1 u95m.*sqv1 l95m.*sqv1/ overlay;

title "plot of v3 by square of v1 best fitting line and confidence limits of the mean";

run;