options crt;
options limwarn=0;
freq m;
smpl 47:1 95:9;
read(file='ex73.wk3', format=lotus) aid pop stexp stinc ps;
olsq stexp c aid stinc pop;
ols aid c ps;
genr w=@res:
olsq stexp c aid stinc pop w;

end; stop;