filename ped542 'p542.dat';
options center linesize=78 pagesize=65 nodate;
data cur542;
infile ped542;
input id y iq;
quad = iq * iq;
deviq = iq - 106.2;
devquad = deviq * deviq;
proc print data = cur542;
proc means;
proc corr;
proc reg;
model y = iq;
model y = deviq;
model y = iq quad;
model y = quad;
model y = deviq devquad;
model y = devquad;
run;
quit;