options ls=78;

data hw8;

infile 'hwk8.dat';

input sn math secstudy intel daysvg;

sqrtsec=sqrt(secstudy);

logsec=log(secstudy);

nrsec=-1/secstudy;

intel2=intel**2;

intel3=intel**3;

run;

proc print data=hw8;

run;

proc plot data=hw8;

plot math*secstudy math*sqrtsec math*logsec math*nrsec math*intel

math*intel2 math*intel3 math*daysvg;

title 'Plots of math by IVs';

run;

proc corr data=hw8;

var math secstudy sqrtsec logsec nrsec intel intel2 intel3 daysvg;

run;

proc reg data=hw8;

model math=intel;

var sqrtsec daysvg;

plot r.*sqrtsec;

title 'plot of residual by sqrt sec';

run;

plot r.*daysvg;

title 'plot of residual by daysvg';

run;

proc reg data=hw8;

model math=intel sqrtsec;

var daysvg;

run;

proc reg data=hw8;

model math=intel daysvg;

var sqrtsec;

run;

quit;