options crt;  ? 3e7
in poly;
freq a;
smpl 60,72;
lncp = log(cump);
lnuc = log(ucostp);
lny = log(prodp);
regopt(dwpval=exact);
olsq lnuc c lncp;
olsq lnuc c lncp lny;
ar1 lnuc c lncp;
ar1 lnuc c lncp lny;
?
in tio2;
freq a;
smpl 55,70;
norepl;  ? the NOREPL command makes sure these new variables are not
         ? spliced together with the POLY variables
lncp = log(cumt);
ucostd = ucostt/defl;
lnuc = log(ucostd);
lny = log(prodt);
olsq lnuc c lncp;
olsq lnuc c lncp lny;
ar1 lnuc c lncp;
ar1 lnuc c lncp lny;