? P&R Example 9.1

options crt limwarn=0;
freq m;
smpl 47:1 95:9;
read(file='ex42.xls', format=excel) fygn3 ip fm1 pw;
r=fygn3;
freq q;
convert(average) r;
smpl 41:1 95:2;
read(file='ex43.xls', format=excel) gc gyd;
consum=gc;
y=gyd;
dconsum=consum-consum(-1);
dy=y-y(-1);
smpl 50:1 95:9;
olsq dconsum c dy(4,5,none) r;
olsq dconsum c dy(4,5,far) r;
olsq dconsum c dy(4,5,both) r;