' D:DA\INVENT\SPSDUR.PRG EVIEWS BATCH PROGRAM ' ' ' >>>>>>>>>>>>>>>>>>>> TABLE 2 <<<<<<<<<<<<<<<<<<< create m 1958.01 1998.12 read(b52, s=table2) d:\da\invent\spsdur.xls 40 ' ' save d:\da\capu\m3a1.wf1 ' ' for %a M 32 33 MET 34 35 36 37 38 ODG output(t) d:\da\invent\spst2 for %a M 32 33 MET 34 35 36 37 38 ODG smpl 58.1 98.12 ' Production=Sales+delta Inventory series mp{%a}n = ms{%a}n + d(mi{%a}n) series mp{%a} = ms{%a} + d(mi{%a}) smpl 58.2 98.12 ' Natural Logs Sales and Production series lnms{%a}n = log(ms{%a}n) series lnms{%a} = log(ms{%a}) series lnmp{%a}n =log(mp{%a}n) series lnmp{%a} =log(mp{%a}) ' Hodrick Prescot Filter Sales and Production hpf(14400) lnms{%a}n lnms{%a}n_hp hpf(14400) lnms{%a} lnms{%a}_hp hpf(14400) lnmp{%a}n lnmp{%a}n_hp hpf(14400) lnmp{%a} lnmp{%a}_hp ' Detrended series = ln - HP series series dts{%a}n = lnms{%a}n - lnms{%a}n_hp series dts{%a} = lnms{%a} - lnms{%a}_hp series dtp{%a}n = lnmp{%a}n - lnmp{%a}n_hp series dtp{%a} = lnmp{%a} - lnmp{%a}_hp series dti{%a}n = dtp{%a}n - dts{%a}n series dti{%a} = dtp{%a} - dts{%a} ' Variance series vardts{%a}n = @var(dts{%a}n) series vardts{%a} = @var(dts{%a}) series vardti{%a}n = @var(dti{%a}n) series vardti{%a} = @var(dti{%a}) series vardtp{%a}n = @var(dtp{%a}n) series vardtp{%a} = @var(dtp{%a}) ' Co-variance of Sales and Inventory series covsi{%a}n = @cov(dts{%a}n,dti{%a}n) series covsi{%a} = @cov(dts{%a},dti{%a}) ' Variance Ratio = detrended production / detrended sales series vrps{%a}n = vardtp{%a}n / vardts{%a}n series vrps{%a} = vardtp{%a} / vardts{%a} smpl 98.12 98.12 print vardts{%a}n vardti{%a}n covsi{%a}n vardtp{%a}n vrps{%a}n print vardts{%a} vardti{%a} covsi{%a} vardtp{%a} vrps{%a} next ' >>>>>>>>>>>>>>>>> TABLE 3-4 <<<<<<<<<<<<<<<<<<<<<<<< create m 1958.01 1998.12 read(b60, s=table34) d:\da\invent\spsdur.xls 52 ' ' ' for %a output(t) d:\da\invent\spst34 'output(t) d:\da\invent\test68 for %a NG 21 22 26 28 29 AUT HOM COS BUS CON CG HDG smpl 58.1 98.12 ' Production=Sales+delta Inventory series mp{%a}n = ms{%a}n + d(mi{%a}n) series mp{%a} = ms{%a} + d(mi{%a}) smpl 58.2 98.12 ' Natural Logs Sales and Production series lnms{%a}n = log(ms{%a}n) series lnms{%a} = log(ms{%a}) series lnmp{%a}n =log(mp{%a}n) series lnmp{%a} =log(mp{%a}) ' Hodrick Prescot Filter Sales and Production hpf(14400) lnms{%a}n lnms{%a}n_hp hpf(14400) lnms{%a} lnms{%a}_hp hpf(14400) lnmp{%a}n lnmp{%a}n_hp hpf(14400) lnmp{%a} lnmp{%a}_hp ' Detrended series = ln - HP series series dts{%a}n = lnms{%a}n - lnms{%a}n_hp series dts{%a} = lnms{%a} - lnms{%a}_hp series dtp{%a}n = lnmp{%a}n - lnmp{%a}n_hp series dtp{%a} = lnmp{%a} - lnmp{%a}_hp series dti{%a}n = dtp{%a}n - dts{%a}n series dti{%a} = dtp{%a} - dts{%a} ' Variance series vardts{%a}n = @var(dts{%a}n) series vardts{%a} = @var(dts{%a}) series vardti{%a}n = @var(dti{%a}n) series vardti{%a} = @var(dti{%a}) series vardtp{%a}n = @var(dtp{%a}n) series vardtp{%a} = @var(dtp{%a}) ' Co-variance of Sales and Inventory series covsi{%a}n = @cov(dts{%a}n,dti{%a}n) series covsi{%a} = @cov(dts{%a},dti{%a}) ' Variance Ratio = detrended production / detrended sales series vrps{%a}n = vardtp{%a}n / vardts{%a}n series vrps{%a} = vardtp{%a} / vardts{%a} smpl 98.12 98.12 print vardts{%a}n vardti{%a}n covsi{%a}n vardtp{%a}n vrps{%a}n print vardts{%a} vardti{%a} covsi{%a} vardtp{%a} vrps{%a} next ' >>>>>>>>>>>>>>>>> TABLE 4a <<<<<<<<<<<<<<<<<<<<<<<< create m 1968.01 1998.12 read(b16, s=table4a) d:\da\invent\spsdur.xls 8 ' ' ' for %a output(t) d:\da\invent\spst4a for %a MEQ PDE smpl 68.1 98.12 ' Production=Sales+delta Inventory series mp{%a}n = ms{%a}n + d(mi{%a}n) series mp{%a} = ms{%a} + d(mi{%a}) smpl 68.2 98.12 ' Natural Logs Sales and Production series lnms{%a}n = log(ms{%a}n) series lnms{%a} = log(ms{%a}) series lnmp{%a}n =log(mp{%a}n) series lnmp{%a} =log(mp{%a}) ' Hodrick Prescot Filter Sales and Production hpf(14400) lnms{%a}n lnms{%a}n_hp hpf(14400) lnms{%a} lnms{%a}_hp hpf(14400) lnmp{%a}n lnmp{%a}n_hp hpf(14400) lnmp{%a} lnmp{%a}_hp ' Detrended series = ln - HP series series dts{%a}n = lnms{%a}n - lnms{%a}n_hp series dts{%a} = lnms{%a} - lnms{%a}_hp series dtp{%a}n = lnmp{%a}n - lnmp{%a}n_hp series dtp{%a} = lnmp{%a} - lnmp{%a}_hp series dti{%a}n = dtp{%a}n - dts{%a}n series dti{%a} = dtp{%a} - dts{%a} ' Variance series vardts{%a}n = @var(dts{%a}n) series vardts{%a} = @var(dts{%a}) series vardti{%a}n = @var(dti{%a}n) series vardti{%a} = @var(dti{%a}) series vardtp{%a}n = @var(dtp{%a}n) series vardtp{%a} = @var(dtp{%a}) ' Co-variance of Sales and Inventory series covsi{%a}n = @cov(dts{%a}n,dti{%a}n) series covsi{%a} = @cov(dts{%a},dti{%a}) ' Variance Ratio = detrended production / detrended sales series vrps{%a}n = vardtp{%a}n / vardts{%a}n series vrps{%a} = vardtp{%a} / vardts{%a} smpl 98.12 98.12 print vardts{%a}n vardti{%a}n covsi{%a}n vardtp{%a}n vrps{%a}n print vardts{%a} vardti{%a} covsi{%a} vardtp{%a} vrps{%a} next ' >>>>>>>>>>>>>>>>> TABLE 5 <<<<<<<<<<<<<<<<<<<<<<<< create m 1987.01 1998.12 read(b52, s=table5) d:\da\invent\spsdur.xls 40 ' ' ' for %a T D 52 55X 57 ND 53 531A 54 56 output(t) d:\da\invent\spst5 for %a T D 52 55X 57 ND 53 531A 54 56 smpl 87.1 98.12 ' Production=Sales+delta Inventory series trp{%a}n = trs{%a}n + d(tri{%a}n) series trp{%a} = trs{%a} + d(tri{%a}) smpl 87.2 98.12 ' Natural Logs Sales and Production series lntrs{%a}n = log(trs{%a}n) series lntrs{%a} = log(trs{%a}) series lntrp{%a}n =log(trp{%a}n) series lntrp{%a} =log(trp{%a}) ' Hodrick Prescot Filter Sales and Production hpf(14400) lntrs{%a}n lntrs{%a}n_hp hpf(14400) lntrs{%a} lntrs{%a}_hp hpf(14400) lntrp{%a}n lntrp{%a}n_hp hpf(14400) lntrp{%a} lntrp{%a}_hp ' Detrended series = ln - HP series series dts{%a}n = lntrs{%a}n - lntrs{%a}n_hp series dts{%a} = lntrs{%a} - lntrs{%a}_hp series dtp{%a}n = lntrp{%a}n - lntrp{%a}n_hp series dtp{%a} = lntrp{%a} - lntrp{%a}_hp series dti{%a}n = dtp{%a}n - dts{%a}n series dti{%a} = dtp{%a} - dts{%a} ' Variance series vardts{%a}n = @var(dts{%a}n) series vardts{%a} = @var(dts{%a}) series vardti{%a}n = @var(dti{%a}n) series vardti{%a} = @var(dti{%a}) series vardtp{%a}n = @var(dtp{%a}n) series vardtp{%a} = @var(dtp{%a}) ' Co-variance of Sales and Inventory series covsi{%a}n = @cov(dts{%a}n,dti{%a}n) series covsi{%a} = @cov(dts{%a},dti{%a}) ' Variance Ratio = detrended production / detrended sales series vrps{%a}n = vardtp{%a}n / vardts{%a}n series vrps{%a} = vardtp{%a} / vardts{%a} smpl 98.12 98.12 print vardts{%a}n vardti{%a}n covsi{%a}n vardtp{%a}n vrps{%a}n print vardts{%a} vardti{%a} covsi{%a} vardtp{%a} vrps{%a} next