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

[This article was first published on

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

**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.