Monetary Policy and Credit Easing pt. 6: Empirical Estimation and Methodology

[This article was first published on The Dancing Economist, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

IT is now appropriate to lay out our two regression models in full for empirical estimation over our two separate time periods. The first estimation is from 4/1/71 to 7/1/97 and the second is from 4/1/01 to 4/1/11. The methodology employed in the estimation of these two models is a procedure using Generalized Least Squares with a Cochrane-Orcutt, style iterated residual value.  For those that wish to perform the same regressions at home I have provided the following links to my data.  This is for the estimation period from 1971 to 1997 and this one is for the 2001 to 2011 estimations. The following four steps were taken for each estimation:

1. Estimate the OLS regression

2. Fit OLS residual to an AR(p) process using the Yule-Walker Method and find the value of p.

3.  Re-estimate model using Generalized Least Squares fit by Maximum Likelihood estimation, using the  estimated p from 2, as the order for your correlation residual term.

4. Fit the GLS estimated residuals to an AR(p) process using the Yule-Walker Method and use the estimated p‘s as the final parameter estimates for the error term.

The end goal of the above procedure is to have our models be asymptotically BLUE or the Best Linear Unbiased Estimators.  The implies that they have the smallest variance out of all the models that meet the rest of the Gauss-Markov assumptions.  A little background behind the methodology is in order.  First we will perform the standard Ordinary Least Squares (OLS) regression on our dependent variables.  This will give us at the very least unbiased estimators.  Second we take the residuals from the first step and fit them to an AR(p) process as selected by the Yule-Walker Method.  This method selects the optimal lag that characterizes the autocorrelation in the residuals.  We automatically take this step, due to the well known fact that most time-series suffer from autocorrelation problems as verified by our correlograms.  Then we re-estimate the regression using Generalized Least Squares which adjusts each term and divides them by their individual variances, while also incorporating the AR(p) lag that we discovered during the previous step.  The final step, which fits our GLS models residuals to an AR(p) process is what leads to our asymptoticly efficient results. We lay out our first estimation period models below.

First Estimation:  4/1/71 to 7/1/97 

1. Monetary Policies Impact On Short-term Risk Premiums

Our first model which seeks to answer how monetary policy impacts the risk premia on short-term commercial paper as estimated over our first time period 4/1/71 to 7/1/97 is as follows:

SR^{premium}_{t}=ß_{0}+ß_{1}*FedBalance^{size}_{t}+ß_{2}*Support_{t} + ß_{3}*UGAP_{t}+ ß_{4}*FF_{t}+ ß_{5}*ER_{t}+ ß_{6}*YC_{t}+ ß_{7}*Default^{spread}_{t}+ ß_{8}*CP_{t}+ ß_{9}*OGAP_{t} + ß_{10}*FedGDP_{t}+ ß_{11}*govcredit_{t}+ ß_{12}*ForeignDebt_{t} +  µ_{t}

Where,

SR^{premium}_{t} = Short-term Risk Premium at time, t

Support_{t}= Fed’s funds at depository institutions as a percentage of their main financing streams at time, t

FedBalance^{size}_{t}=  The Fed’s credit market asset holdings as percentage of the total credit market assets at time, t

FF_{t}= Federal Funds rate at time, t

ER_{t}= Excess Reserves of Depository Institutions at time, t

YC_{t}= Yield curve at time, t

Default^{spread}_{t}= Default Spread between BAA_{t} & AAA_{t} rated bonds at time, t

CP_{t} = Corporate Profits After Tax at time, t

FedGDP_{t}= Fed’s holdings of total public debt as a percentage of GDP at time, t

govcredit_{t}= Government Holdings Of Domestic Credit Market Debt As A Percentage Of The Total at time, t

ForeignDebt_{t}= Foreign Holdings of Federal Debt As A Percentage Of The Total at time, t

UGAP_{t} = Unemployment gap at time, t

OGAP_{t} = Output gap at time, t

µ_{t}= error term at time, t

R DATA WORK

So now it is time for the long awaited econometrics work in R. First thing you’ll want to do is read the data into R from your data file which is in this case is the Earlreg file.

> earl<- read.csv("/Users/stevensabol/Desktop/R/earlreg.csv",header = TRUE, sep = ",")

Then you define your variable names so you can easily manipulate your data in R. So when you open the official .csv data file take a look at the variable names and rename them using the following procedure.  

>yc1<-earl[,"yc"]

After you define what you call everything you’re then free to go crazy and run regressions.  Below is how you run the standard Ordinary Least Squares regression.  The lm function enables you to run linear regressions:

1. Estimate the OLS regression

>srp1.lm=lm(srp1~yc1+CP1+FF1+default1+Support1+ER1+FedGDP1+FedBalance1+govcredit1+ForeignDebt1+UGAP1+OGAP1)

In order to get the output you have to use the summary function:

> summary(srp1.lm)

Call:
lm(formula = srp1 ~ yc1 + CP1 + FF1 + default1 + Support1 + ER1 + 
    FedGDP1 + FedBalance1 + govcredit1 + ForeignDebt1 + UGAP1 + 
    OGAP1)

Residuals:
     Min       1Q   Median       3Q      Max 
-1.04289 -0.20145 -0.04041  0.15230  1.21044 

Coefficients:
               Estimate Std. Error t value Pr(>|t|)    
(Intercept)  -2.7591194  1.0359966  -2.663  0.00912 ** 
yc1           0.1320996  0.0580500   2.276  0.02516 *  
CP1          -0.0022773  0.0073773  -0.309  0.75825    
FF1           0.1699788  0.0340654   4.990 2.81e-06 ***
default1      0.4382965  0.1876685   2.335  0.02167 *  
Support1      2.2383850  0.6660140   3.361  0.00113 ** 
ER1           0.3351508  0.3017644   1.111  0.26959    
FedGDP1       0.3031938  0.2558144   1.185  0.23895    
FedBalance1   0.4014920  0.3477547   1.155  0.25124    
govcredit1   -0.0928817  0.0401603  -2.313  0.02294 *  
ForeignDebt1 -0.0068900  0.0215393  -0.320  0.74977    
UGAP1        -0.0912273  0.0520491  -1.753  0.08295 .  
OGAP1         0.0006669  0.0014895   0.448  0.65536    
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 

Residual standard error: 0.3789 on 93 degrees of freedom
Multiple R-squared: 0.6474, Adjusted R-squared: 0.6019 
F-statistic: 14.23 on 12 and 93 DF,  p-value: 2.642e-16 

Next we perform step 2 which is:

2. Fit OLS residual to an AR(p) process using the Yule-Walker Method and find the value of p.

> srp.lmfit<-ar.yw(srp1.lm$res)
> srp.lmfit

Call:
ar.yw.default(x = srp1.lm$res)

Coefficients:
     1  
0.2535  

Order selected 1  sigma^2 estimated as  0.1201 

So the Yule-Walker methodology fits the residual series to an AR(1) process.

3.  Re-estimate model using Generalized Least Squares fit by Maximum Likelihood estimation, using the  estimated p from 2, as the order for your correlation residual term.

In order to run a GLS regression your going to need to load the nlme package:

> library(nlme)

Then you can go crazy:

>srp1.gls=gls(srp1~yc1+CP1+FF1+default1+Support1+ER1+FedGDP1+FedBalance1+govcredit1+ForeignDebt1+UGAP1+OGAP1, corr=corARMA(p=1,q=0),method=”ML”)

> summary(srp1.gls)

The following output is produced:

Generalized least squares fit by maximum likelihood
  Model: srp1 ~ yc1 + CP1 + FF1 + default1 + Support1 + ER1 + FedGDP1 + FedBalance1 + govcredit1 + ForeignDebt1 + UGAP1 + OGAP1 
  Data: NULL 
       AIC      BIC    logLik
  100.7905 140.7421 -35.39526

Correlation Structure: AR(1)
 Formula: ~1 
 Parameter estimate(s):
      Phi 
0.3696665 

Coefficients:
                  Value Std.Error   t-value p-value
(Intercept)  -3.0219486 1.2595942 -2.399145  0.0184
yc1           0.1929605 0.0640627  3.012054  0.0033
CP1          -0.0060642 0.0071791 -0.844700  0.4004
FF1           0.1918066 0.0362894  5.285466  0.0000
default1      0.5292204 0.2060591  2.568293  0.0118
Support1      2.1086204 0.7405128  2.847514  0.0054
ER1           0.5651430 0.2770125  2.040135  0.0442
FedGDP1       0.1028773 0.3143122  0.327309  0.7442
FedBalance1   0.7845392 0.4130914  1.899190  0.0606
govcredit1   -0.1240196 0.0524191 -2.365922  0.0201
ForeignDebt1  0.0009822 0.0278623  0.035252  0.9720
UGAP1        -0.1266050 0.0657633 -1.925161  0.0573
OGAP1        -0.0014094 0.0014328 -0.983623  0.3279

 Correlation: 
             (Intr) yc1    CP1    FF1    deflt1 Spprt1 ER1    FdGDP1 FdBln1 gvcrd1
yc1          -0.267                                                               
CP1           0.054 -0.062                                                        
FF1          -0.308  0.726 -0.012                                                 
default1      0.081 -0.208  0.235 -0.342                                          
Support1     -0.005 -0.109 -0.107 -0.419  0.137                                   
ER1          -0.208  0.077 -0.081  0.067 -0.180  0.028                            
FedGDP1      -0.728 -0.059 -0.048  0.083 -0.057 -0.002 -0.308                     
FedBalance1   0.461  0.250  0.020  0.208  0.036 -0.081  0.445 -0.887              
govcredit1   -0.570 -0.233 -0.095 -0.291 -0.261  0.072  0.068  0.666 -0.784       
ForeignDebt1 -0.475  0.132  0.006 -0.092  0.093  0.219  0.057  0.059 -0.045  0.227
UGAP1        -0.048 -0.193 -0.062  0.085 -0.447  0.150  0.090  0.045  0.064 -0.053
OGAP1        -0.029  0.092  0.295  0.062 -0.208 -0.024  0.053 -0.021  0.013  0.056
             FrgnD1 UGAP1 
yc1                       
CP1                       
FF1                       
default1                  
Support1                  
ER1                       
FedGDP1                   
FedBalance1               
govcredit1                
ForeignDebt1              
UGAP1        -0.016       
OGAP1         0.064  0.041

Standardized residuals:
        Min          Q1         Med          Q3         Max 
-3.08026826 -0.62589269 -0.08409222  0.39781537  3.24233325 

Residual standard error: 0.3634024 
Degrees of freedom: 106 total; 93 residual

After you perform this step you have to refit the residuals in order to get serially uncorrelated terms.  

4. Fit the GLS estimated residuals to an AR(p) process using the Yule-Walker Method and use the estimated p‘s as the final parameter estimates for the error term.  

> s1glsres.ar<-ar.yw(srp1.gls$res)
> s1glsres.ar

Call:
ar.yw.default(x = srp1.gls$res)

Coefficients:
     1  
0.3718  

Order selected 1  sigma^2 estimated as  0.1163 

In order to see the results of these actions please refer to image below:
The Ljung-box Q is a test for autocorrelation between the lags in the error terms. Ideally in order to meet the BLUE criteria we have to reject the the null hypothesis for autocorrelation at each lag.  We can see that both our original OLS  and GLS estimations fail to pass the Ljung-Box Q. However when we readjust the error terms the final time we get residuals that are serially uncorrelated with each other.  

In order to get the above graph you have to first load the package that will allow you to perform the Ljung-Box Q plot:

> library(FitAR)

Then you can proceed from there and define how many plots should be in one picture.  In the above image we have 9 therefore:

> par(mfrow=c(3,3))

Then you can start adding in your plots.  Below is the code for producing the plots for the fitted GLS residuals.

> acf(s1glsres.ar$res[-(1)])
> pacf(s1glsres.ar$res[-(1)])
> LBQPlot(s1glsres.ar$res[-(1)])

We include the [-(1)] because exclude the first observation since we have an AR(1) process.

The same steps above can be applied to any time-series regression model.  In the next post we will discuss how to get some summary statistics.  Please keep dancin’

Steven J.





To leave a comment for the author, please follow the link and comment on their blog: The Dancing Economist.

R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)