options crt;
options limwarn=0;
freq m;
smpl 47:1 95:9;
read(file='ex73.xls') aid pop exp inc ps;
olsq exp c aid inc pop;
ols aid c ps;
genr w=@res;
olsq exp c aid inc pop w;

end; stop;