? P&R Exercise 6.5

options crt limwarn=0;

freq m;
smpl 47:1 95:9;
read(file='ex42.xls', format=excel) fygn3 ip fm1 pw;
r=fygn3;
m=fm1;
p=pw;

smpl 59:6 95:9;
d3m=m-m(-3);
dp=(p-p(-1))/p;
psum=dp+dp(-1)+dp(-2);

smpl 60:2 95:9;
olsq r c ip m psum;
ar1(method=corc) r c ip m psum;
ar1(method=corc) r c ip d3m psum;