options crt;  ? 4e4
in cole;
smpl 1,91;
lnprice = log(oldpr);
lnspeed = log(oldsp);
lncap = log(cap);
olsq lnprice lnspeed lncap c d73-d84;  ? (a)
?
lnprice = log(price);
lnspeed = log(speed);
olsq lnprice lnspeed lncap c d73-d84;  ? (b)
 rename @ssr ssrunr;
?
frml eqsumd sumdif = lnspeed+lncap-1;
analyz eqsumd;  ? (c)
?
time = 1 + d72 + 2*d73 + 3*d74 + 4*d75 + 5*d76 + 6*d77 +
         7*d78 + 8*d79 + 9*d80 + 10*d81 + 11*d82 + 12*d83 + 13*d84;
olsq lnprice lnspeed lncap c time;
set df1 = 11;
set df2 = @nob-15;
set fstat = (@ssr-ssrunr)/df1/(ssrunr/df2);
cdf(f,df1=df1,df2=df2) fstat;  ? (d)