frbus.nw

\documentclass{book}
\usepackage{noweb}
\usepackage{hyperref}
\hypersetup{final=true}
\usepackage[toc,page]{appendix}
\usepackage{multicol}
\usepackage{framed}
\usepackage{xcolor}
\let\oldquote=\quote
\let\endoldquote=\endquote
\colorlet{shadecolor}{orange!15}
\renewenvironment{quote}{\begin{shaded*}\begin{oldquote}}{\end{oldquote}\end{shaded*}}

\title{Reverse Engineering the FRB/US Model in R}
\author{Gary Young}

\begin{document}
\pagestyle{noweb}

\maketitle
\tableofcontents
\newpage

\chapter{Introduction}

I am starting to reverse engineer\footnote{The pdf was created with noweb, the literate programming tool: "noweb frbus.nw | pdflatex -synctex=1 -interaction=nonstopmode frbus.tex"} the Federal Reserve's \href{https://www.federalreserve.gov/econresdata/frbus/us-models-package.htm}{FRB/US model packages} to create my own version in the R Language.  I quote their
\href{https://www.federalreserve.gov/econresdata/frbus/us-models-about.htm}{about page}:

\begin{quote}
The FRB/US model is a large-scale estimated general equilibrium model of the U.S. economy that has been in use at the Federal Reserve Board since 1996. The model is designed for detailed analysis of monetary and fiscal policies. One distinctive feature compared to dynamic stochastic general equilibrium (DSGE) models is the ability to switch between alternative assumptions about expectations formation of economic agents.  Another is the model’s level of detail: FRB/US contains all major components of the product and income sides of the U.S. national accounts.  Since its original development, the model has continuously undergone changes to cope with the evolving structure of the economy, including conceptual revisions to sectoral definitions of the national accounts.

The article \href{https://www.federalreserve.gov/econresdata/notes/feds-notes/2014/a-tool-for-macroeconomic-policy-analysis.html}{"The FRB/US Model: A Tool for Macroeconomic Policy Analysis"} provides a brief overview of the structure of FRB/US, and presents some key properties of the model and some applications, code for which is included with the main FRB/US model package. The article \href{https://www.federalreserve.gov/econresdata/notes/feds-notes/2014/november-2014-update-of-the-frbus-model-20141121.html}{"November 2014 Update of the FRB/US Model"} presents some model properties of the most recently released version of FRB/US.
\end{quote}

This is an evolving document, where I will initially create the Fed's model files byte for byte and reverse engineer the structure of the model.  Then I plan to morph it into the \href{https://www.r-project.org/}{R software environment for statistical computing and graphics}, to use to create my own models.  I'm using the \href{https://en.wikipedia.org/wiki/Literate_programming}{literate programming} method of  \href{https://en.wikipedia.org/wiki/Donald_Knuth}{Donald Knuth} to combine the documentation with the actual code.

\chapter{Model Equations and Coefficients}

Compare my version of the "Model Equations and Coefficients" to the \href{http://htmlpreview.github.io/?https://github.com/proudindiv/FRBUSinR/blob/ReverseEngineer/frbus_package/documentation/equations.html}{documentation}.

\section{Household Expenditures}

\subsection[a.1 ECO]{a.1 ECO: Consumer expenditures on non-durable goods and non-housing services, cw 2009\$}

<<variable ECO>>=
ECO      = Consumer expenditures on non-durable goods and non-housing services, cw 2009$                 
@ %def ECO

<<equation eco>>=
eco: d( log(eco), 0, 1) - eco_aerr  _
                = (y_eco(1) * log(qeco(-1)/eco(-1)) _
                + y_eco(2) * d(log(eco(-1)), 0, 1) _
                + y_eco(3) * zeco) * (1-y_eco(4)) _
                + y_eco(4) * (d(log(yhl+yht), 0, 1)) 


@ %def eco

<<coefficient y{\_}eco>>=
y_eco	4	0.1088704831212408,0.4609714707829828,1,0.252176379778204
@ %def y_eco

\subsection[a.2 ECD]{a.2 ECD: Consumer expenditures on durable goods, cw 2009\$}

<<variable ECD>>=
ECD      = Consumer expenditures on durable goods, cw 2009$                                              
@ %def ECD

<<equation ecd>>=
ecd: d( log(ecd), 0, 1) - ecd_aerr  _
                 = y_ecd(1) * log(qecd(-1)/ecd(-1)) _
                 + y_ecd(2) * d( log(ecd(-1)), 0, 1) _
                 + y_ecd(3) * zecd _
                 + y_ecd(4) * zgapc2 / 400 


@ %def ecd

<<coefficient y{\_}ecd>>=
y_ecd	4	0.1553557918476032,-0.05860156240430123,1,9.039065475739223
@ %def y_ecd

\subsection[a.3 EH]{a.3 EH: Residential investment expenditures, cw 2009\$}

<<variable EH>>=
EH       = Residential investment expenditures, cw 2009$                                                 
@ %def EH

<<equation eh>>=
eh: d( log(eh), 0, 1 ) - eh_aerr _
                 = y_eh(1) * log(qeh(-1)/eh(-1)) _
                 + y_eh(2) * d( log(eh(-1)), 0, 1 ) _
                 + y_eh(3) * d( log(eh(-2)), 0, 1 ) _
                 + y_eh(4) * zeh _
                 + y_eh(5) * d( rme(-1), 0, 1 ) _
                 + y_eh(6) * d83 * d( rme(-1), 0, 1 ) 


@ %def eh

<<coefficient y{\_}eh>>=
y_eh	6	0.01184830003855771,0.3575993755366778,0.2161402157869259,1,-0.05135790678323379,0.02487247623721819
@ %def y_eh

\subsection[a.4 ECH]{a.4 ECH: Consumer expenditures on housing services, cw 2009\$}

<<variable ECH>>=
ECH      = Consumer expenditures on housing services, cw 2009$                                           
@ %def ECH

<<equation ech>>=
ech: d( (ech)/kh(-1), 0, 1 ) - ech_aerr _
                 = y_ech(1)  _
                 + y_ech(2) * ech(-1)/kh(-2) _
                 + y_ech(3) * d( ech(-1)/kh(-2), 0, 1 ) _
                 + y_ech(4) * rrmet/100 


@ %def ech

<<coefficient y{\_}ech>>=
y_ech	4	0.002890569762594884,-0.02415873224871467,0.5006794105950545,0.001736793669371161
@ %def y_ech

\subsection[a.5 QEC]{a.5 QEC: Desired level of consumption (FRBUS definition)}

<<variable QEC>>=
QEC      = Desired level of consumption (FRBUS definition)                                               
@ %def QEC

<<equation qec>>=
qec: qec - qec_aerr = y_qec(1) * zyh  _
               + y_qec(2) * (dcon*(zyh-zyht)) _
               + y_qec(3) * zyht _
               + y_qec(4) * zyhp _
               + y_qec(5) * (wps+wpo) 


@ %def qec

<<coefficient y{\_}qec>>=
y_qec	5	0.7592609842874721,0.002578773939057793,0.2407390157125279,-0.2514158240890368,0.03153868180983269
@ %def y_qec

\subsection[a.6 QECO]{a.6 QECO: Desired level of consumption of nondurable goods and nonhousing services}

<<variable QECO>>=
QECO     = Desired level of consumption of nondurable goods and nonhousing services                      
@ %def QECO

<<equation qeco>>=
qeco: log(qeco) - qeco_aerr = log(qec) - log(pcor) + y_qeco(1) 


@ %def qeco

<<coefficient y{\_}qeco>>=
y_qeco	1	-0.3372292498223053
@ %def y_qeco

\subsection[a.7 QECD]{a.7 QECD: Target level of consumption of durable goods, trending component}

<<variable QECD>>=
QECD     = Target level of consumption of durable goods, trending component                              
@ %def QECD

<<equation qecd>>=
qecd: qecd - qecd_aerr = qec _
                 * (jrcd/4 + hggdpt/400 + y_qecd(1)*hgpcdr/400) _
                 * exp(y_qecd(2) + y_qecd(3)*log(pcdr*rccd)) 


@ %def qecd

<<coefficient y{\_}qecd>>=
y_qecd	3	-0.6165972226120303,2.557266037164673,-0.6165972226120303
@ %def y_qecd

\subsection[a.8 QEH]{a.8 QEH: Target level of residential investment}

<<variable QEH>>=
QEH      = Target level of residential investment                                                        
@ %def QEH

<<equation qeh>>=
qeh: qeh - qeh_aerr = qec _
               * (jrh/4 + hggdpt/400) _
               * exp(y_qeh(1) - log(phr*pxp/pcnia) + y_qeh(2)*log(rcch)) 


@ %def qeh

<<coefficient y{\_}qeh>>=
y_qeh	2	1.935026993649364,-0.1570195518635583
@ %def y_qeh

\subsection[a.9 ECNIA]{a.9 ECNIA: Personal consumption expenditures, cw 2009\$ (NIPA definition)}

<<variable ECNIA>>=
ECNIA    = Personal consumption expenditures, cw 2009$ (NIPA definition)                                 
@ %def ECNIA

<<equation ecnia>>=
ecnia: log(ecnia) - ecnia_aerr = log(ecnia(-1)) +  _
      .5 * .01 * (pcor*pcnia*eco/ecnian  _
         + pcor(-1)*pcnia(-1)*eco(-1)/ecnian(-1))  _
           * d(log(eco), 0, 1) _
    + .5 * .01 * (pcdr*pcnia*ecd/ecnian  _
         + pcdr(-1)*pcnia(-1)*ecd(-1)/ecnian(-1))  _
           * d(log(ecd), 0, 1) _
    + .5 * .01 * (pchr*pcnia*ech/ecnian  _
         + pchr(-1)*pcnia(-1)*ech(-1)/ecnian(-1))  _
           * d(log(ech), 0, 1) 


@ %def ecnia

\subsection[a.10 ECNIAN]{a.10 ECNIAN: Personal consumption expenditures, current \$ (NIPA definition)}

<<variable ECNIAN>>=
ECNIAN   = Personal consumption expenditures, current $ (NIPA definition)                                
@ %def ECNIAN

<<equation ecnian>>=
ecnian: ecnian - ecnian_aerr = .01*pcnia*ecnia 


@ %def ecnian

\subsection[a.11 EHN]{a.11 EHN: Residential investment expenditures}

<<variable EHN>>=
EHN      = Residential investment expenditures                                                           
@ %def EHN

<<equation ehn>>=
ehn: ehn - ehn_aerr = .01 * phr * pxp * eh 


@ %def ehn

\subsection[a.12 KCD]{a.12 KCD: Stock of consumer durables, cw 2009\$}

<<variable KCD>>=
KCD      = Stock of consumer durables, cw 2009$                                                          
@ %def KCD

<<equation kcd>>=
kcd: kcd - kcd_aerr = .25*ecd + (1-jrcd/4)*kcd(-1) 


@ %def kcd

\subsection[a.13 KH]{a.13 KH: Stock of residential structures, cw 2009\$}

<<variable KH>>=
KH       = Stock of residential structures, cw 2009$                                                     
@ %def KH

<<equation kh>>=
kh: kh - kh_aerr = .25*eh + (1-jrh/4)*kh(-1) 


@ %def kh

\subsection[a.14 RCCD]{a.14 RCCD: Cost of capital for consumer durables}

<<variable RCCD>>=
RCCD     = Cost of capital for consumer durables                                                         
@ %def RCCD

<<equation rccd>>=
rccd: rccd - rccd_aerr = (@recode((100*jrcd + rcar - zpi5)>( .01),100*jrcd + rcar - zpi5, .01)) 


@ %def rccd

\subsection[a.15 RCCH]{a.15 RCCH: Cost of capital for residential investment}

<<variable RCCH>>=
RCCH     = Cost of capital for residential investment                                                    
@ %def RCCH

<<equation rcch>>=
rcch: rcch - rcch_aerr = (@recode((100*jrh + (1-trfpm/100)*(rme+100*trspp) - zpi10)>( .1),100*jrh + (1-trfpm/100)*(rme+100*trspp) - zpi10, .1)) 


@ %def rcch

\subsection[a.16 JKCD]{a.16 JKCD: Consumption of fixed capital, consumer durables}

<<variable JKCD>>=
JKCD     = Consumption of fixed capital, consumer durables                                               
@ %def JKCD

<<equation jkcd>>=
jkcd: jkcd - jkcd_aerr = jrcd * kcd(-1) 


@ %def jkcd

\subsection[a.17 EC]{a.17 EC: Consumption, cw 2009\$ (FRB/US definition)}

<<variable EC>>=
EC       = Consumption, cw 2009$ (FRB/US definition)                                                     
@ %def EC

<<equation ec>>=
ec: log(ec) - ec_aerr = log(ec(-1)) +  _
      .5 * (pcor*pcnia*eco/(ec*pcnia)  _
         + pcor(-1)*pcnia(-1)*eco(-1)/(ec(-1)*pcnia(-1)))  _
           * d(log(eco), 0, 1) _
    + .5 * (pchr*pcnia*ech/(ec*pcnia)  _
         + pchr(-1)*pcnia(-1)*ech(-1)/(ec(-1)*pcnia(-1)))  _
           * d(log(ech), 0, 1) _
    + .5 * ((pcdr*pcnia*yhpcd+pcdr*pcnia*jkcd)/(ec*pcnia)  _
         + (pcdr(-1)*pcnia(-1)*yhpcd(-1)+pcdr(-1)*pcnia(-1)*jkcd(-1))/(ec(-1)*pcnia(-1)))  _
           * d(log(yhpcd+jkcd), 0, 1) 


@ %def ec

\subsection[a.18 YHPCD]{a.18 YHPCD: Imputed income of the stock of consumer durables, 2009\$}

<<variable YHPCD>>=
YHPCD    = Imputed income of the stock of consumer durables, 2009$                                       
@ %def YHPCD

<<equation yhpcd>>=
yhpcd: log(yhpcd) - yhpcd_aerr = log(y_yhpcd(1)) + log(kcd(-1)) 


@ %def yhpcd

<<coefficient y{\_}yhpcd>>=
y_yhpcd	1	0.053750000000000000E+00
@ %def y_yhpcd


\section{Business Expenditures}

\subsection[b.1 EPD]{b.1 EPD: Investment in equipment, cw 2009\$}

<<variable EPD>>=
EPD      = Investment in equipment, cw 2009$                                                             
@ %def EPD

<<equation epd>>=
epd: d( log(epd), 0, 1 ) - epd_aerr = _
 ( y_epd(1)*(log(qepd(-2)/epd(-2)))  _
 +  ( y_epd(2) *  d( log(epd(-1)), 0, 1 ) +  y_epd(3) *  d( log(epd(-2)), 0, 1 ))  _
 + zxbd(-1)  _
 + zvpd(-1) )*(1-y_epd(4))  _
 + y_epd(4) * (d( log(xbo(-1)), 0, 1 ) + hgvpd(-1)) 


@ %def epd

<<coefficient y{\_}epd>>=
y_epd	4	0.1639648722427122,0.4446158979500308,0.3699597791648127,0.5
@ %def y_epd

\subsection[b.2 EPI]{b.2 EPI: Investment in intellectual property, cw 2009\$}

<<variable EPI>>=
EPI      = Investment in intellectual property, cw 2009$                                                 
@ %def EPI

<<equation epi>>=
epi: d( log(epi), 0, 1 ) - epi_aerr = _
 ( y_epi(1)*(log(qepi(-2)/epi(-2)))  _
 +  ( y_epi(2) *  d( log(epi(-1)), 0, 1 ) +  y_epi(3) *  d( log(epi(-2)), 0, 1 ))  _
 + zxbi(-1)  _
 + zvpi(-1) )*(1-y_epi(4))  _
 + y_epi(4) * d( log(xbo(-1)), 0, 1 )  


@ %def epi

<<coefficient y{\_}epi>>=
y_epi	4	0.01211724517486588,0.6819035622357826,0.1766782129232528,0.212294527301806
@ %def y_epi

\subsection[b.3 EPS]{b.3 EPS: Investment in nonresidential structures, cw 2009\$}

<<variable EPS>>=
EPS      = Investment in nonresidential structures, cw 2009$                                             
@ %def EPS

<<equation eps>>=
eps: d( log(eps), 0, 1 ) - eps_aerr = _
                    (y_eps(1) * log(qeps(-2)/eps(-2)) _
                  +  ( y_eps(2) *  d( log(eps(-1)), 0, 1 ) +  y_eps(3) *  d( log(eps(-2)), 0, 1 ))  _
                  + zxbs(-1) _
                  + zvps(-1)) * (1-y_eps(4)) _
                  + y_eps(4) * (d( log(xbo(-1)), 0, 1 )) _
                  + y_eps(5) * d01q4 


@ %def eps

<<coefficient y{\_}eps>>=
y_eps	5	0.06660965676110558,0.5425646472109228,0.3261733908091358,0.5,-0.09697975834849955
@ %def y_eps

\subsection[b.4 KI]{b.4 KI: Stock of private inventories, cw 2009\$}

<<variable KI>>=
KI       = Stock of private inventories, cw 2009$                                                        
@ %def KI

<<equation ki>>=
ki: d( log(ki), 0, 1 ) - ki_aerr _
                 = y_ki(5) _
                 + y_ki(1) * (log(qkir) - log(ki(-1)/xfs(-1))) _
                 + y_ki(2) * (d( log(ki(-1)), 0, 1 ) - y_ki(5)) _
                 + y_ki(3) * d( log(xfs(-1)), 0, 1 ) _
                 + y_ki(4) * d( log(xfs(-2)), 0, 1 ) 


@ %def ki

<<coefficient y{\_}ki>>=
y_ki	5	0.01679108530917215,0.451650730999944,0.2617948535758293,0.2865544154242267,-0.001309818569766082
@ %def y_ki

\subsection[b.5 EI]{b.5 EI: Change in private inventories, cw 2009\$}

<<variable EI>>=
EI       = Change in private inventories, cw 2009$                                                       
@ %def EI

<<equation ei>>=
ei: ei - ei_aerr = 4*d( ki, 0, 1 ) 


@ %def ei

\subsection[b.6 QEPD]{b.6 QEPD: Desired level of investment in equipment}

<<variable QEPD>>=
QEPD     = Desired level of investment in equipment                                                      
@ %def QEPD

<<equation qepd>>=
qepd: log(qepd) - qepd_aerr = y_qepd(1)  _
                        + y_qepd(2) * log(xbo) _
                        + y_qepd(3) * log(vpd) _
                        + y_qepd(4) * log(hgx/100 + jrpd ) 


@ %def qepd

<<coefficient y{\_}qepd>>=
y_qepd	4	0,1.000000000000000000e+00,1.000000000000000000e+00,1.000000000000000000e+00
@ %def y_qepd

\subsection[b.7 QEPS]{b.7 QEPS: Desired level of investment in structures}

<<variable QEPS>>=
QEPS     = Desired level of investment in structures                                                     
@ %def QEPS

<<equation qeps>>=
qeps: log(qeps) - qeps_aerr = y_qeps(1)  _
                      + y_qeps(2) * log(xbo) _
                      + y_qeps(3) * log(vps) _
                      + y_qeps(4) * log(hgx/100 + jrps ) 


@ %def qeps

<<coefficient y{\_}qeps>>=
y_qeps	4	0,1.000000000000000000e+00,1.000000000000000000e+00,1.000000000000000000e+00
@ %def y_qeps

\subsection[b.8 QEPI]{b.8 QEPI: Desired level of investment in intellectual property}

<<variable QEPI>>=
QEPI     = Desired level of investment in intellectual property                                          
@ %def QEPI

<<equation qepi>>=
qepi: log(qepi) - qepi_aerr = y_qepi(1)  _
                        + y_qepi(2) * log(xbo) _
                        + y_qepi(3) * log(vpi) _
                        + y_qepi(4) * log(hgx/100 + jrpi ) 


@ %def qepi

<<coefficient y{\_}qepi>>=
y_qepi	4	0,1.000000000000000000e+00,1.000000000000000000e+00,1.000000000000000000e+00
@ %def y_qepi

\subsection[b.9 QKIR]{b.9 QKIR: Desired Inventory Sales Ratio}

<<variable QKIR>>=
QKIR     = Desired Inventory Sales Ratio                                                                 
@ %def QKIR

<<equation qkir>>=
qkir: log(qkir) - qkir_aerr = (1-dglprd)*y_qkir(1) + log(qkir(-1)) 


@ %def qkir

<<coefficient y{\_}qkir>>=
y_qkir	1	-0.001885366737710053
@ %def y_qkir

\subsection[b.10 KPD]{b.10 KPD: Capital stock - Equipment, 2009\$}

<<variable KPD>>=
KPD      = Capital stock - Equipment, 2009$                                                              
@ %def KPD

<<equation kpd>>=
kpd: kpd - kpd_aerr = 0.25 * epd + (1-jrpd/4) * kpd(-1) 


@ %def kpd

\subsection[b.11 KPI]{b.11 KPI: Capital Stock - Intellectual Property, 2009\$}

<<variable KPI>>=
KPI      = Capital Stock - Intellectual Property, 2009$                                                  
@ %def KPI

<<equation kpi>>=
kpi: kpi - kpi_aerr = 0.25 * epi + (1-jrpi/4) * kpi(-1) 


@ %def kpi

\subsection[b.12 KPS]{b.12 KPS: Capital stock - nonresidential structures, 2009\$}

<<variable KPS>>=
KPS      = Capital stock - nonresidential structures, 2009$                                              
@ %def KPS

<<equation kps>>=
kps: kps - kps_aerr = 0.25 * eps + (1-jrps/4) * kps(-1) 


@ %def kps

\subsection[b.13 HKS]{b.13 HKS: Growth rate of KS, cw 2009\$ (compound annual rate)}

<<variable HKS>>=
HKS      = Growth rate of KS, cw 2009$ (compound annual rate)                                            
@ %def HKS

<<equation hks>>=
hks: hks - hks_aerr = 400 * (ykpdn * d( log(kpd), 0, 1 ) _
                     +  ykpsn * d( log(kps), 0, 1 ) + ykin * d( log(ki), 0, 1 )) / _
                     (ykpdn + ykpsn + ykin) + hksr 


@ %def hks

\subsection[b.14 KS]{b.14 KS: Capital services, 2009 \$}

<<variable KS>>=
KS       = Capital services, 2009 $                                                                      
@ %def KS

<<equation ks>>=
ks: log(ks) - ks_aerr = log(ks(-1)) + hks/400 


@ %def ks

\subsection[b.15 RPD]{b.15 RPD: After-tax real financial cost of capital for business investment}

<<variable RPD>>=
RPD      = After-tax real financial cost of capital for business investment                              
@ %def RPD

<<equation rpd>>=
rpd: rpd - rpd_aerr = 0.5*(7.2 + (1-trfcim)*(rg5e + rbbbe- rg10e) - zpib5) + 0.5*req 


@ %def rpd

\subsection[b.16 RTPD]{b.16 RTPD: User cost of capital for equipment}

<<variable RTPD>>=
RTPD     = User cost of capital for equipment                                                            
@ %def RTPD

<<equation rtpd>>=
rtpd: rtpd - rtpd_aerr = (.01*rpd + jrpd - .01*hgpdr) _
                   * ((1-.01*tapdt-trfcim*(1-tapddp*.01*tapdt)*tapdd)/(1-trfcim)) _
                   * ( ( pxp*pkpdr +  pxp(-1)*pkpdr(-1)) /2)/pxb  


@ %def rtpd

\subsection[b.17 RTPI]{b.17 RTPI: User cost of capital for intellectual property}

<<variable RTPI>>=
RTPI     = User cost of capital for intellectual property                                                
@ %def RTPI

<<equation rtpi>>=
rtpi: rtpi - rtpi_aerr = (.01*rpd + jrpi - .01*hgpir) _
                   * ( ( pxp*ppir +  pxp(-1)*ppir(-1)) /2)/pxb  


@ %def rtpi

\subsection[b.18 RTPS]{b.18 RTPS: User cost of capital for nonresidential structures}

<<variable RTPS>>=
RTPS     = User cost of capital for nonresidential structures                                            
@ %def RTPS

<<equation rtps>>=
rtps: rtps - rtps_aerr = (@recode(((.01*rpd + jrps - .01*hgppsr)  _
                 * ((1-trfcim*tapsda)/(1-trfcim)) _
                 * ( ( pxp*ppsr +  pxp(-1)*ppsr(-1)) /2)/pxb)>( .02),(.01*rpd + jrps - .01*hgppsr)  _
                 * ((1-trfcim*tapsda)/(1-trfcim)) _
                 * ( ( pxp*ppsr +  pxp(-1)*ppsr(-1)) /2)/pxb, .02)) 


@ %def rtps

\subsection[b.19 RTINV]{b.19 RTINV: User cost of capital for inventories}

<<variable RTINV>>=
RTINV    = User cost of capital for inventories                                                          
@ %def RTINV

<<equation rtinv>>=
rtinv: rtinv - rtinv_aerr = (.01*rpd - .01*hgpkir) _
                   * ( ( pxp*pkir +  pxp(-1)*pkir(-1)) /2)/pxb  


@ %def rtinv

\subsection[b.20 VPD]{b.20 VPD: Desired equipment-output ratio}

<<variable VPD>>=
VPD      = Desired equipment-output ratio                                                                
@ %def VPD

<<equation vpd>>=
vpd: vpd - vpd_aerr = uvpd*(pkpdr/ppdr)/rtpd 


@ %def vpd

\subsection[b.21 VPI]{b.21 VPI: Desired intellectual property-output ratio}

<<variable VPI>>=
VPI      = Desired intellectual property-output ratio                                                    
@ %def VPI

<<equation vpi>>=
vpi: vpi - vpi_aerr = uvpi/rtpi 


@ %def vpi

\subsection[b.22 VPS]{b.22 VPS: Desired structures-output ratio}

<<variable VPS>>=
VPS      = Desired structures-output ratio                                                               
@ %def VPS

<<equation vps>>=
vps: vps - vps_aerr = uvps/rtps 


@ %def vps

\subsection[b.23 HGVPD]{b.23 HGVPD: Trend Growth of VPD}

<<variable HGVPD>>=
HGVPD    = Trend Growth of VPD                                                                           
@ %def HGVPD

<<equation hgvpd>>=
hgvpd: hgvpd - hgvpd_aerr = y_hgvpd(1) * hgvpd(-1) _
                     + y_hgvpd(2) * log(vpd/vpd(-1)) 


@ %def hgvpd

<<coefficient y{\_}hgvpd>>=
y_hgvpd	2	0.97,0.03
@ %def y_hgvpd

\subsection[b.24 HGVPS]{b.24 HGVPS: Trend growth rate of VPS}

<<variable HGVPS>>=
HGVPS    = Trend growth rate of VPS                                                                      
@ %def HGVPS

<<equation hgvps>>=
hgvps: hgvps - hgvps_aerr = y_hgvps(1) * hgvps(-1) _
                     + y_hgvps(2) * log(vps/vps(-1)) 


@ %def hgvps

<<coefficient y{\_}hgvps>>=
y_hgvps	2	0.97,0.03
@ %def y_hgvps

\subsection[b.25 EPDN]{b.25 EPDN: Investment in equipment, current \$}

<<variable EPDN>>=
EPDN     = Investment in equipment, current $                                                            
@ %def EPDN

<<equation epdn>>=
epdn: epdn - epdn_aerr = 0.01*ppdr*pxp*epd 


@ %def epdn

\subsection[b.26 EPIN]{b.26 EPIN: Investment in intellectual property, current \$}

<<variable EPIN>>=
EPIN     = Investment in intellectual property, current $                                                
@ %def EPIN

<<equation epin>>=
epin: epin - epin_aerr = 0.01*ppir*pxp*epi 


@ %def epin

\subsection[b.27 EPSN]{b.27 EPSN: Investment in nonresidential structures, current \$}

<<variable EPSN>>=
EPSN     = Investment in nonresidential structures, current $                                            
@ %def EPSN

<<equation epsn>>=
epsn: epsn - epsn_aerr = .01 * ppsr * pxp * eps 


@ %def epsn

\subsection[b.28 EIN]{b.28 EIN: Change in business inventories, current \$}

<<variable EIN>>=
EIN      = Change in business inventories, current $                                                     
@ %def EIN

<<equation ein>>=
ein: ein - ein_aerr = .01*pxp*pkir*ei 


@ %def ein

\subsection[b.29 TAPSDA]{b.29 TAPSDA: Present value of depreciation allowances for nonresidential structures}

<<variable TAPSDA>>=
TAPSDA   = Present value of depreciation allowances for nonresidential structures                        
@ %def TAPSDA

<<equation tapsda>>=
tapsda: tapsda - tapsda_aerr = (1-tapsad)*(1-exp(-0.01*(rpd+zpib5)*tapssl))/ _
                     (0.01*(rpd+zpib5)*tapssl) + _
                     tapsad*(1-d69) * 2 *  _
                     (1 - (1-exp(-0.01*(rpd+zpib5)*tapssl))/ _
                     (0.01*(rpd+zpib5)*tapssl)) / (0.01*(rpd+zpib5)*tapssl) _
                     + tapsad*(d69-d81) *(  (1.5 /  _
                     (1.5 + .01 * tapssl * (rpd + zpib5))) *  _
                     (1 - exp(-0.5-0.33*(0.01*(rpd+zpib5)*tapssl))) + _
                     (exp(-0.5)/(0.67*(0.01*(rpd+zpib5)*tapssl)))* _
                     (exp(-0.33*(0.01*(rpd+zpib5)*tapssl)) -  _
                     exp(-(0.01*(rpd+zpib5)*tapssl))) ) _
                     + tapsad * (d81-d86) *(  (1.75 /  _
                     (1.75 + .01 * tapssl * (rpd + zpib5))) *  _
                     (1 - exp(-0.75-0.428*(0.01*(rpd+zpib5)*tapssl))) + _
                     (exp(-0.75)/(0.572*(0.01*(rpd+zpib5)*tapssl)))* _
                     (exp(-0.428*(0.01*(rpd+zpib5)*tapssl)) -  _
                     exp(-(0.01*(rpd+zpib5)*tapssl))) ) _
                     + tapsad * d86 * (1-exp(-0.01*(rpd+zpib5)*tapssl))/ _
                     (0.01*(rpd+zpib5)*tapssl) 


@ %def tapsda

\subsection[b.30 TAPDD]{b.30 TAPDD: Present value of depreciation allowances for equipment}

<<variable TAPDD>>=
TAPDD    = Present value of depreciation allowances for equipment                                        
@ %def TAPDD

<<equation tapdd>>=
tapdd: tapdd - tapdd_aerr = .5 * d2003 + .5 * d2003 * (2.0 / (2.0 + .01 * tapds * (rpd + zpib5))) _
                     + .3 * d2002 + .7 * d2002 * (2.0 / (2.0 + .01 * tapds * (rpd + zpib5))) _
                     + (d87 - d2002 - d2003) * (2.0 / (2.0 + .01 * tapds * (rpd + zpib5))) _
                     + (d81-d87) * (1.5 / (1.5 + .01 * tapds * (rpd + zpib5))) _
                     + (1-d81) _
                           * (((1-tapdad)*(1-exp(-(.01*tapds*(rpd+zpib5)))) _
                                     /(.01*tapds*(rpd+zpib5))) _
                               + tapdad *2*(1-(1-exp(-(.01*tapds*(rpd+zpib5)))) _
                                    /(.01*tapds*(rpd+zpib5))) _
                                    /(.01 * tapds * (rpd + zpib5))) 


@ %def tapdd

\subsection[b.31 EGPDIN]{b.31 EGPDIN: Gross private domestic investment}

<<variable EGPDIN>>=
EGPDIN   = Gross private domestic investment                                                             
@ %def EGPDIN

<<equation egpdin>>=
egpdin: egpdin - egpdin_aerr = epdn + epsn + epin + ehn + ein 


@ %def egpdin

\subsection[b.32 HGVPI]{b.32 HGVPI: Trend growth rate of VPI}

<<variable HGVPI>>=
HGVPI    = Trend growth rate of VPI                                                                      
@ %def HGVPI

<<equation hgvpi>>=
hgvpi: hgvpi - hgvpi_aerr = y_hgvpi(1) * hgvpi(-1) _
                     + y_hgvpi(2) * log(vpi/vpi(-1)) 


@ %def hgvpi

<<coefficient y{\_}hgvpi>>=
y_hgvpi	2	0.97,0.03
@ %def y_hgvpi


\section{Foreign Trade}

\subsection[c.1 EX]{c.1 EX: Exports of goods and services, cw 2009 \$}

<<variable EX>>=
EX       = Exports of goods and services, cw 2009 $                                                      
@ %def EX

<<equation ex>>=
ex: d( log(ex), 0, 1 ) - ex_aerr _
                 = y_ex(1)  _
                 + y_ex(2) * log(ex(-1)*(pxr(-1)*pxp(-1)*fpx(-1))/(fgdp(-1)*fpc(-1))) _
                 + y_ex(3) * (fxgap - fxgap(-1))/100 _
                 + y_ex(4) * (fxgap(-1) - fxgap(-2))/100 _
                 + y_ex(5) * ddockx 


@ %def ex

<<coefficient y{\_}ex>>=
y_ex	5	0.8118629319610274,-0.1074807087618527,1.38575824141273,1.092856118288064,1.014561010220407
@ %def y_ex 

\subsection[c.2 EXN]{c.2 EXN: Exports of goods and services, current \$}

<<variable EXN>>=
EXN      = Exports of goods and services, current $                                                      
@ %def EXN

<<equation exn>>=
exn: exn - exn_aerr = .01*pxp*pxr*ex 


@ %def exn

\subsection[c.3 EMO]{c.3 EMO: Imports of goods and services ex. petroleum, cw 2009\$}

<<variable EMO>>=
EMO      = Imports of goods and services ex. petroleum, cw 2009$                                         
@ %def EMO

<<equation emo>>=
emo: d( log(emo), 0, 1 ) - emo_aerr _
                  =  y_emo(1) _
                   + y_emo(2) * log(emo(-1)*(pmo(-1)/100)/(uemot(-1)*xgden(-1))) _
                   + y_emo(3) * (xgap2-xgap2(-1))/100 _
                   + y_emo(4) * (xgap2(-1)-xgap2(-2))/100 _
                   + y_emo(5) * log(ddockm) _
                   + y_emo(6) * log(ddockm/ddockm(-1)) 


@ %def emo

<<coefficient y{\_}emo>>=
y_emo	6	0.01701497186817749,-0.1984753225812535,1.352328263830308,1.673976681206801,0.3566283231277721,0.3803113605562196
@ %def y_emo

\subsection[c.4 EMON]{c.4 EMON: Imports of goods and services ex. petroleum}

<<variable EMON>>=
EMON     = Imports of goods and services ex. petroleum                                                   
@ %def EMON

<<equation emon>>=
emon: emon - emon_aerr = .01 * pmo * emo 


@ %def emon

\subsection[c.5 CENG]{c.5 CENG: Consumption of crude energy (oil, coal, natural gas),  2009 \$}

<<variable CENG>>=
CENG     = Consumption of crude energy (oil, coal, natural gas),  2009 $                                 
@ %def CENG

<<equation ceng>>=
ceng: d( log(ceng), 0, 1 ) - ceng_aerr = _
                     y_ceng(1) * (log(ceng(-1))-log(xg(-1)*veoa(-1))) _
                   + y_ceng(2) * d( log(xg), 0, 1 ) _
                   + y_ceng(3) * d( log(xg(-1)), 0, 1 ) _
                   + y_ceng(4) * d( log(ceng(-1)), 0, 1 ) _
                   + y_ceng(5) * d( log(veoa(-1)), 0, 1 ) _
                   + y_ceng(6) * hgx(-1)/400 


@ %def ceng

<<coefficient y{\_}ceng>>=
y_ceng	6	-0.1483451935619194,0.475653118183134,0.5437644321944857,-0.2301598753097478,0.4661713199430116,-0.2554289950108837
@ %def y_ceng

\subsection[c.6 EMP]{c.6 EMP: Petroleum imports, cw 2009\$}

<<variable EMP>>=
EMP      = Petroleum imports, cw 2009$                                                                   
@ %def EMP

<<equation emp>>=
emp: emp - emp_aerr = uemp*(ceng-xeng) 


@ %def emp

\subsection[c.7 EMPN]{c.7 EMPN: Petroleum imports, current \$}

<<variable EMPN>>=
EMPN     = Petroleum imports, current $                                                                  
@ %def EMPN

<<equation empn>>=
empn: empn - empn_aerr = .01*pmp*emp 


@ %def empn

\subsection[c.8 EMN]{c.8 EMN: Imports of goods and services, current \$}

<<variable EMN>>=
EMN      = Imports of goods and services, current $                                                      
@ %def EMN

<<equation emn>>=
emn: emn - emn_aerr = emon + empn 


@ %def emn

\subsection[c.9 EM]{c.9 EM: Imports of goods and services, cw 2009\$}

<<variable EM>>=
EM       = Imports of goods and services, cw 2009$                                                       
@ %def EM

<<equation em>>=
em: log(em) - em_aerr = log(em(-1))   _
                  + .5 * (emon/emn + emon(-1)/emn(-1)) * d(log(emo), 0, 1) _
                  + .5 * (empn/emn + empn(-1)/emn(-1)) * d(log(emp), 0, 1) 


@ %def em

\subsection[c.10 FCBN]{c.10 FCBN: US current account balance, current \$}

<<variable FCBN>>=
FCBN     = US current account balance, current $                                                         
@ %def FCBN

<<equation fcbn>>=
fcbn: fcbn - fcbn_aerr = exn - emn + fynin + fcbrn 


@ %def fcbn

\subsection[c.11 FCBRN]{c.11 FCBRN: US current account balance residual, current \$}

<<variable FCBRN>>=
FCBRN    = US current account balance residual, current $                                                
@ %def FCBRN

<<equation fcbrn>>=
fcbrn: fcbrn - fcbrn_aerr = ufcbr*pxg*xgpot/100 


@ %def fcbrn

\subsection[c.12 FNIN]{c.12 FNIN: Net stock of claims of US residents on the rest of the world, current \$}

<<variable FNIN>>=
FNIN     = Net stock of claims of US residents on the rest of the world, current $                       
@ %def FNIN

<<equation fnin>>=
fnin: d( fnin, 0, 1 ) - fnin_aerr = .25*fcbn  _
                         + .54 * (d( log(fpc), 0, 1) * fnicn(-1)) _
                         - .32 * (d( log(pgdp), 0, 1) * fniln(-1))   _
                         - .67 * (d( log(fpx), 0, 1) * fnicn(-1)) _
                         + .06 * (d( log(fpx), 0, 1) * fniln(-1))  _
                         + fnirn 


@ %def fnin

\subsection[c.13 FTCIN]{c.13 FTCIN: Corporate taxes paid to rest of world, current \$}

<<variable FTCIN>>=
FTCIN    = Corporate taxes paid to rest of world, current $                                              
@ %def FTCIN

<<equation ftcin>>=
ftcin: ftcin - ftcin_aerr = uftcin * ynicpn 


@ %def ftcin

\subsection[c.14 FYNIN]{c.14 FYNIN: Net investment income received from the rest of the world, current \$}

<<variable FYNIN>>=
FYNIN    = Net investment income received from the rest of the world, current $                          
@ %def FYNIN

<<equation fynin>>=
fynin: fynin - fynin_aerr = fynicn - fyniln 


@ %def fynin

\subsection[c.15 HGEMP]{c.15 HGEMP: Petroleum imports, cw 2009\$, trend growth rate}

<<variable HGEMP>>=
HGEMP    = Petroleum imports, cw 2009$, trend growth rate                                                
@ %def HGEMP

<<equation hgemp>>=
hgemp: hgemp - hgemp_aerr = y_hgemp(1) * hgemp(-1) _
                   + y_hgemp(2) * 400*log(emp/emp(-1)) 


@ %def hgemp

<<coefficient y{\_}hgemp>>=
y_hgemp	2	.9,.1
@ %def y_hgemp

\subsection[c.16 FNICN]{c.16 FNICN: Gross stock of claims of US residents on the rest of the world, current \$}

<<variable FNICN>>=
FNICN    = Gross stock of claims of US residents on the rest of the world, current $                     
@ %def FNICN

<<equation fnicn>>=
fnicn: d(fnicn, 0, 1)/xgdptn - fnicn_aerr = .54 * d( log(fpc), 0, 1)*fnicn(-1)/xgdptn _
                                 - .67 * d( log(fpx), 0, 1)*fnicn(-1)/xgdptn  _
                                 + rfnict 


@ %def fnicn

\subsection[c.17 FNILN]{c.17 FNILN: Gross stock of liabilities of US residents to the rest of the world, current \$}

<<variable FNILN>>=
FNILN    = Gross stock of liabilities of US residents to the rest of the world, current $                
@ %def FNILN

<<equation fniln>>=
fniln: fniln - fniln_aerr = fnicn - fnin 


@ %def fniln

\subsection[c.18 FYNICN]{c.18 FYNICN: Gross investment income received from the rest of the world, current \$}

<<variable FYNICN>>=
FYNICN   = Gross investment income received from the rest of the world, current $                        
@ %def FYNICN

<<equation fynicn>>=
fynicn:  fynicn - fynicn_aerr = .01*rfynic*fnicn(-1)        


@ %def fynicn

\subsection[c.19 FYNILN]{c.19 FYNILN: Gross investment income paid to the rest of the world, current \$}

<<variable FYNILN>>=
FYNILN   = Gross investment income paid to the rest of the world, current $                              
@ %def FYNILN

<<equation fyniln>>=
fyniln:  fyniln - fyniln_aerr = .01*rfynil*fniln(-1)        


@ %def fyniln

\subsection[c.20 RFYNIC]{c.20 RFYNIC: Average yield earned on gross claims of US residents on the rest of the world}

<<variable RFYNIC>>=
RFYNIC   = Average yield earned on gross claims of US residents on the rest of the world                 
@ %def RFYNIC

<<equation rfynic>>=
rfynic: d( rfynic, 0, 1 ) - rfynic_aerr = y_rfynic(1) _
                + y_rfynic(2) * (rfynic(-1)-rfynil(-1)) _
                + y_rfynic(3) * d( rfynic(-1), 0, 1 ) _
                + y_rfynic(4) * d( rfynil, 0, 1 ) 


@ %def rfynic

<<coefficient y{\_}rfynic>>=
y_rfynic	4	0.2599432734430575,-0.1468767116652314,0.1482396937168886,0.6420445148826751
@ %def y_rfynic

\subsection[c.21 RFYNIL]{c.21 RFYNIL: Average yield earned on liabilities of US residents on the rest of the world}

<<variable RFYNIL>>=
RFYNIL   = Average yield earned on liabilities of US residents on the rest of the world                  
@ %def RFYNIL

<<equation rfynil>>=
rfynil: d( rfynil, 0, 1 ) - rfynil_aerr = y_rfynil(1) _
                + y_rfynil(2) * rfynil(-1) _
                + y_rfynil(3) * rg10(-1) _
                + y_rfynil(4) * rtb(-1) _
                + y_rfynil(5) * reqp(-1) _
                + y_rfynil(6) * d( rfynil(-1), 0, 1 ) _
                + y_rfynil(7) * d( rg10, 0, 1 ) _
                + y_rfynil(8) * d( rtb, 0, 1 ) _
                + y_rfynil(9) * d( reqp, 0, 1 ) 


@ %def rfynil

<<coefficient y{\_}rfynil>>=
y_rfynil	9	0.1878356791714486,-0.2435367622231839,0.07902780819914431,0.08880151900874264,0.04060472504081036,0.1438241754461063,0.08380863485370706,0.2559648860598844,0.007819499377243286
@ %def y_rfynil

\subsection[c.22 FNIRN]{c.22 FNIRN: Net stock of claims of US residents on the rest of the world, residual}

<<variable FNIRN>>=
FNIRN    = Net stock of claims of US residents on the rest of the world, residual                        
@ %def FNIRN

<<equation fnirn>>=
fnirn: fnirn - fnirn_aerr = ufnir * xgdpn 


@ %def fnirn


\section{Aggregate Output Identities}

\subsection[d.1 XFS]{d.1 XFS: Final sales of gross domestic product, cw 2009\$}

<<variable XFS>>=
XFS      = Final sales of gross domestic product, cw 2009$                                               
@ %def XFS

<<equation xfs>>=
xfs: log(xfs) - xfs_aerr = log(xfs(-1)) _
  + .5*( (ecnian/xfsn + ecnian(-1)/xfsn(-1)) * d(log(ecnia), 0, 1) _
  + (ehn/xfsn + ehn(-1)/xfsn(-1)) * d(log(eh), 0, 1) _
  + (epdn/xfsn + epdn(-1)/xfsn(-1)) * d(log(epd), 0, 1) _
  + (epsn/xfsn + epsn(-1)/xfsn(-1)) * d(log(eps), 0, 1) _
  + (epin/xfsn + epin(-1)/xfsn(-1)) * d(log(epi), 0, 1) _
  + (egfon/xfsn + egfon(-1)/xfsn(-1)) * d(log(egfo), 0, 1) _
  + (egfin/xfsn + egfin(-1)/xfsn(-1)) * d(log(egfi), 0, 1) _
  + (egfln/xfsn + egfln(-1)/xfsn(-1)) * d(log(egfl), 0, 1) _
  + (egson/xfsn + egson(-1)/xfsn(-1)) * d(log(egso), 0, 1) _
  + (egsin/xfsn + egsin(-1)/xfsn(-1)) * d(log(egsi), 0, 1) _
  + (egsln/xfsn + egsln(-1)/xfsn(-1)) * d(log(egsl), 0, 1) _
  + (exn/xfsn + exn(-1)/xfsn(-1)) * d(log(ex), 0, 1) _
  - (emon/xfsn + emon(-1)/xfsn(-1)) * d(log(emo), 0, 1) _
  - (empn/xfsn + empn(-1)/xfsn(-1)) * d(log(emp), 0, 1)) 


@ %def xfs

\subsection[d.2 XGDP]{d.2 XGDP: GDP, cw 2009\$}

<<variable XGDP>>=
XGDP     = GDP, cw 2009$                                                                                 
@ %def XGDP

<<equation xgdp>>=
xgdp: xgdp - xgdp_aerr = xgdp(-1) * @sqrt( _
          ( (xfsn(-1)/xgdpn(-1)) * (xfs/xfs(-1)) _
           + (.01 * ei(-1)*pkir(-1)*pxp(-1) / xgdpn(-1)) * (ei/ei(-1))) _
          * 1/ _
          ((xfsn/xgdpn) * (xfs(-1)/xfs) _
           + (.01 * ei*pkir*pxp / xgdpn) * (ei(-1)/ei))) 


@ %def xgdp

\subsection[d.3 HGGDP]{d.3 HGGDP: Growth rate of GDP, cw 2009\$ (annual rate)}

<<variable HGGDP>>=
HGGDP    = Growth rate of GDP, cw 2009$ (annual rate)                                                    
@ %def HGGDP

<<equation hggdp>>=
hggdp: hggdp - hggdp_aerr = 400*d( log(xgdp), 0, 1 ) 


@ %def hggdp

\subsection[d.4 XGDE]{d.4 XGDE: Domestic absorption, cw 2009\$}

<<variable XGDE>>=
XGDE     = Domestic absorption, cw 2009$                                                                 
@ %def XGDE

<<equation xgde>>=
xgde: log(xgde) - xgde_aerr = log(xgde(-1)) _
  + .5*( (xgdpn/xgden + xgdpn(-1)/xgden(-1)) * d(log(xgdp), 0, 1) _
   - (exn/xgden + exn(-1)/xgden(-1)) * d(log(ex), 0, 1) _
  + (emon/xgden + emon(-1)/xgden(-1)) * d(log(emo), 0, 1) _
  + (empn/xgden + empn(-1)/xgden(-1)) * d(log(emp), 0, 1)) 


@ %def xgde

\subsection[d.5 XGO]{d.5 XGO: Output of business sector plus oil imports, adjusted for measurement error, cw 2009\$}

<<variable XGO>>=
XGO      = Output of business sector plus oil imports, adjusted for measurement error, cw 2009$          
@ %def XGO

<<equation xgo>>=
xgo: log(xgo) - xgo_aerr =  log(xgpot) + y_xgo(1) * xgap2/100 


@ %def xgo

<<coefficient y{\_}xgo>>=
y_xgo	1	1.313096
@ %def y_xgo

\subsection[d.6 XBO]{d.6 XBO: Business output, adjusted for measurement error, cw  2009\$}

<<variable XBO>>=
XBO      = Business output, adjusted for measurement error, cw  2009$                                    
@ %def XBO

<<equation xbo>>=
xbo: log(xbo) - xbo_aerr =  log(xbt) + y_xbo(1) * xgap2/100 


@ %def xbo

<<coefficient y{\_}xbo>>=
y_xbo	1	1.338129148984226
@ %def y_xbo

\subsection[d.7 XP]{d.7 XP: Final sales plus imports less government labor, cw 2009\$}

<<variable XP>>=
XP       = Final sales plus imports less government labor, cw 2009$                                      
@ %def XP

<<equation xp>>=
xp: log(xp) - xp_aerr = log(xp(-1)) _
  + .5 * (ecnian/xpn + ecnian(-1)/xpn(-1)) * d(log(ecnia), 0, 1) _
  + .5 * (ehn/xpn + ehn(-1)/xpn(-1))       * d(log(eh), 0, 1) _
  + .5 * (epdn/xpn + epdn(-1)/xpn(-1))     * d(log(epd), 0, 1) _
  + .5 * (epin/xpn + epin(-1)/xpn(-1))     * d(log(epi), 0, 1) _
  + .5 * (epsn/xpn + epsn(-1)/xpn(-1))     * d(log(eps), 0, 1) _
  + .5 * (egfon/xpn + egfon(-1)/xpn(-1))   * d(log(egfo), 0, 1) _
  + .5 * (egfin/xpn + egfin(-1)/xpn(-1))   * d(log(egfi), 0, 1) _
  + .5 * (egson/xpn + egson(-1)/xpn(-1))   * d(log(egso), 0, 1) _
  + .5 * (egsin/xpn + egsin(-1)/xpn(-1))   * d(log(egsi), 0, 1) _
  + .5 * (exn/xpn + exn(-1)/xpn(-1))       * d(log(ex), 0, 1) 


@ %def xp

\subsection[d.8 XB]{d.8 XB: Business output (BEA definition), cw 2009\$}

<<variable XB>>=
XB       = Business output (BEA definition), cw 2009$                                                    
@ %def XB

<<equation xb>>=
xb: xb - xb_aerr =  xbn/ (pxb/100) 


@ %def xb

\subsection[d.9 XG]{d.9 XG: Output of  business sector plus oil imports, cw 2009\$}

<<variable XG>>=
XG       = Output of  business sector plus oil imports, cw 2009$                                         
@ %def XG

<<equation xg>>=
xg: log(xg) - xg_aerr = log(xg(-1))   _
  + (1 - .5*(.035*empn/(.01*pceng*ceng) + .035*empn(-1)/(.01*pceng(-1)*ceng(-1)))) * d(log(xb), 0, 1) _
  +  .5*(.035*empn/(.01*pceng*ceng) + .035*empn(-1)/(.01*pceng(-1)*ceng(-1))) * d(log(emp), 0, 1) 


@ %def xg

\subsection[d.10 XGPOT]{d.10 XGPOT: Potential output of  business sector plus oil imports,  cw 2009\$}

<<variable XGPOT>>=
XGPOT    = Potential output of  business sector plus oil imports,  cw 2009$                              
@ %def XGPOT

<<equation xgpot>>=
xgpot: log(xgpot) - xgpot_aerr = (y_xgpot(1) * (log(leppot) + log(qlww) + log(lqualt)) _
                         + y_xgpot(2) * log(ks) _
                         + y_xgpot(3) * log(veoa) _
                         + log(mfpt)) / (1-y_xgpot(4)) 


@ %def xgpot

<<coefficient y{\_}xgpot>>=
y_xgpot	4	.7000,.265,.035,.035
@ %def y_xgpot

\subsection[d.11 HMFPT]{d.11 HMFPT: Trend growth rate of multifactor productivity}

<<variable HMFPT>>=
HMFPT    = Trend growth rate of multifactor productivity                                                 
@ %def HMFPT

<<equation hmfpt>>=
hmfpt: hmfpt - hmfpt_aerr = y_hmfpt(1) + y_hmfpt(2)*hmfpt(-1) 


@ %def hmfpt

<<coefficient y{\_}hmfpt>>=
y_hmfpt	2	0.055,0.95
@ %def y_hmfpt

\subsection[d.12 MFPT]{d.12 MFPT: Multifactor productivity, trend level}

<<variable MFPT>>=
MFPT     = Multifactor productivity, trend level                                                         
@ %def MFPT

<<equation mfpt>>=
mfpt: log(mfpt) - mfpt_aerr = y_mfpt(1) + log(mfpt(-1)) + hmfpt/400 


@ %def mfpt

<<coefficient y{\_}mfpt>>=
y_mfpt	1	0.0
@ %def y_mfpt

\subsection[d.13 VEO]{d.13 VEO: Desired energy-output ratio}

<<variable VEO>>=
VEO      = Desired energy-output ratio                                                                   
@ %def VEO

<<equation veo>>=
veo: log(veo) - veo_aerr = log(pxb/pceng) 


@ %def veo

\subsection[d.14 VEOA]{d.14 VEOA: Average energy-output ratio of existing capital stock}

<<variable VEOA>>=
VEOA     = Average energy-output ratio of existing capital stock                                         
@ %def VEOA

<<equation veoa>>=
veoa: log(veoa) - veoa_aerr = y_veoa(1) * log(veoa(-1)) _
                      + y_veoa(2) * log(veo(-1)) _
                      + uveoa 


@ %def veoa

<<coefficient y{\_}veoa>>=
y_veoa	2	0.988,0.012
@ %def y_veoa

\subsection[d.15 EMPT]{d.15 EMPT: Petroleum imports trend, cw 2009\$}

<<variable EMPT>>=
EMPT     = Petroleum imports trend, cw 2009$                                                             
@ %def EMPT

<<equation empt>>=
empt: d( log(empt), 0, 1) - empt_aerr  _
                  = y_empt(1) * log(emp(-1)/empt(-1)) _
                  + y_empt(2) * hgx/400 


@ %def empt

<<coefficient y{\_}empt>>=
y_empt	2	0.10000000000000000E+00,1.00000000000000000E+00
@ %def y_empt

\subsection[d.16 XBT]{d.16 XBT: Potential business output, cw 2009\$}

<<variable XBT>>=
XBT      = Potential business output, cw 2009$                                                           
@ %def XBT

<<equation xbt>>=
xbt: log(xbt) - xbt_aerr = log(xb) + (log(xgpot/xg)  _
   - .5 *(.035*empn/(.01*pceng*ceng) + .035*empn(-1)/(.01*pceng(-1)*ceng(-1))) * log(empt/emp)) / _
  (1 -  .5 *(.035*empn/(.01*pceng*ceng) + .035*empn(-1)/(.01*pceng(-1)*ceng(-1)))) 


@ %def xbt

\subsection[d.17 XGDPT]{d.17 XGDPT: Potential GDP, cw 2009\$}

<<variable XGDPT>>=
XGDPT    = Potential GDP, cw 2009$                                                                       
@ %def XGDPT

<<equation xgdpt>>=
xgdpt: log(xgdpt) - xgdpt_aerr = log(xbt) + log(uxbt) 


@ %def xgdpt

\subsection[d.26 XENG]{d.26 XENG: Crude energy production, cw 2009\$}

<<variable XENG>>=
XENG     = Crude energy production, cw 2009$                                                             
@ %def XENG

<<equation xeng>>=
xeng: xeng - xeng_aerr = uxeng * xgpot 


@ %def xeng

\subsection[d.27 XGDI]{d.27 XGDI: Gross domestic income, cw 2009\$}

<<variable XGDI>>=
XGDI     = Gross domestic income, cw 2009$                                                               
@ %def XGDI

<<equation xgdi>>=
xgdi: xgdi - xgdi_aerr = xgdo*mei 


@ %def xgdi

\subsection[d.28 XGDO]{d.28 XGDO: Gross domestic product, adjusted for measurement error, cw 2009\$}

<<variable XGDO>>=
XGDO     = Gross domestic product, adjusted for measurement error, cw 2009$                              
@ %def XGDO

<<equation xgdo>>=
xgdo: xgdo - xgdo_aerr = xgdp/mep 


@ %def xgdo


\section{Labor Market}

\subsection[e.1 LHP]{e.1 LHP: Aggregate labor hours,  business sector (employee and  self-employed)}

<<variable LHP>>=
LHP      = Aggregate labor hours,  business sector (employee and  self-employed)                         
@ %def LHP

<<equation lhp>>=
lhp: d( log(lhp), 0, 1 ) - lhp_aerr = _
                    y_lhp(1) * (log(qlhp(-1)/lhp(-1))-d( log(mfpt), 0, 1 )/.965) _
                  + y_lhp(2) * d( log(lhp(-1)), 0, 1 ) _
                  + y_lhp(3) * zlhp _
                  + y_lhp(4) * (d( log(xgo), 0, 1 ) - hlprdt(-1)/400 - d( hmfpt, 0, 1 )/(.965*400)) _
                  + y_lhp(5) * (d( log(xgo(-1)), 0, 1 ) - hlprdt(-2)/400 - d( hmfpt(-1), 0, 1 )/(.965*400)) 


@ %def lhp

<<coefficient y{\_}lhp>>=
y_lhp	5	0.255040531063274,0.1491232069118806,0.3902648422452434,0.6097351577547565,-0.09092566209131074
@ %def y_lhp

\subsection[e.2 QLHP]{e.2 QLHP: Desired level of  business labor hours}

<<variable QLHP>>=
QLHP     = Desired level of  business labor hours                                                        
@ %def QLHP

<<equation qlhp>>=
qlhp: qlhp - qlhp_aerr = xgo/lprdt 


@ %def qlhp

\subsection[e.3 LWW]{e.3 LWW: Workweek,  business sector (employee and self-employed)}

<<variable LWW>>=
LWW      = Workweek,  business sector (employee and self-employed)                                       
@ %def LWW

<<equation lww>>=
lww: d( log(lww), 0, 1 ) - lww_aerr _
                  = hqlww/400 _
                  + y_lww(1) * log(qlww(-1)/lww(-1)) _
                      + y_lww(2) * (d( log(lhp), 0, 1 ) - (hlept + hqlww)/400) 


@ %def lww

<<coefficient y{\_}lww>>=
y_lww	2	0.1984470411422383,0.3128887644653584
@ %def y_lww

\subsection[d.18 UXBT]{d.18 UXBT: Stochastic component of trend ratio of XGDPT to XBT}

<<variable UXBT>>=
UXBT     = Stochastic component of trend ratio of XGDPT to XBT                                           
@ %def UXBT

<<equation uxbt>>=
uxbt: log(uxbt) - uxbt_aerr = y_uxbt(1) + log(uxbt(-1)) + .0025*huxb 


@ %def uxbt

<<coefficient y{\_}uxbt>>=
y_uxbt	1	0.0
@ %def y_uxbt

\subsection[d.19 HUXB]{d.19 HUXB: Drift term in UXBT}

<<variable HUXB>>=
HUXB     = Drift term in UXBT                                                                            
@ %def HUXB

<<equation huxb>>=
huxb: huxb - huxb_aerr = (1-dglprd) *(y_huxb(1) + y_huxb(2)*huxb(-1)) 


@ %def huxb

<<coefficient y{\_}huxb>>=
y_huxb	2	-0.01817091647656927,0.95
@ %def y_huxb

\subsection[d.20 XGAP]{d.20 XGAP: Output gap for  business plus oil imports  (100*log(actual/potential)}

<<variable XGAP>>=
XGAP     = Output gap for  business plus oil imports  (100*log(actual/potential)                         
@ %def XGAP

<<equation xgap>>=
xgap: xgap - xgap_aerr = 100*log(xgo/xgpot) 


@ %def xgap

\subsection[d.21 XGAP2]{d.21 XGAP2: Output gap for GDP (100*log(actual/potential)}

<<variable XGAP2>>=
XGAP2    = Output gap for GDP (100*log(actual/potential)                                                 
@ %def XGAP2

<<equation xgap2>>=
xgap2: xgap2 - xgap2_aerr = 100 * log(xgdo/xgdpt) 


@ %def xgap2

\subsection[d.22 HGX]{d.22 HGX: Trend growth rate of XG, cw 2009\$ (annual rate)}

<<variable HGX>>=
HGX      = Trend growth rate of XG, cw 2009$ (annual rate)                                               
@ %def HGX

<<equation hgx>>=
hgx: hgx - hgx_aerr = (.7*(hlept + hqlww + 400*d( log(lqualt), 0, 1 )) + .265*hks _
               + .035*400*d( log(veoa), 0, 1 ) + hmfpt)/.965 


@ %def hgx

\subsection[d.23 HXBT]{d.23 HXBT: Trend rate of growth of XB  , cw 2009\$ (annual rate)}

<<variable HXBT>>=
HXBT     = Trend rate of growth of XB  , cw 2009$ (annual rate)                                          
@ %def HXBT

<<equation hxbt>>=
hxbt: hxbt - hxbt_aerr = ( hgx  _
  - .5 *(.035*empn/(.01*pceng*ceng) + .035*empn(-1)/(.01*pceng(-1)*ceng(-1))) * 400*d( log(empt), 0, 1 )) / _
  (1 -  .5 *(.035*empn/(.01*pceng*ceng) + .035*empn(-1)/(.01*pceng(-1)*ceng(-1)))) 


@ %def hxbt

\subsection[d.24 HGGDPT]{d.24 HGGDPT: Trend growth rate of XGDP, cw 2009\$ (annual rate)}

<<variable HGGDPT>>=
HGGDPT   = Trend growth rate of XGDP, cw 2009$ (annual rate)                                             
@ %def HGGDPT

<<equation hggdpt>>=
hggdpt: hggdpt - hggdpt_aerr = hxbt + huxb 


@ %def hggdpt

\subsection[d.25 XGDPTN]{d.25 XGDPTN: Potential GDP, current \$}

<<variable XGDPTN>>=
XGDPTN   = Potential GDP, current $                                                                      
@ %def XGDPTN

<<equation xgdptn>>=
xgdptn: xgdptn - xgdptn_aerr = .01*pgdp*xgdpt 


@ %def xgdptn

\subsection[e.4 QLWW]{e.4 QLWW: Trend workweek,  business sector (employee and  self-employed)}

<<variable QLWW>>=
QLWW     = Trend workweek,  business sector (employee and  self-employed)                                
@ %def QLWW

<<equation qlww>>=
qlww: log(qlww) - qlww_aerr = log(qlww(-1)) + hqlww(-1)/400 


@ %def qlww

\subsection[e.5 HQLWW]{e.5 HQLWW: Trend growth rate of workweek}

<<variable HQLWW>>=
HQLWW    = Trend growth rate of workweek                                                                 
@ %def HQLWW

<<equation hqlww>>=
hqlww: hqlww - hqlww_aerr = y_hqlww(1) * hqlww(-1) + (1-y_hqlww(1)) * y_hqlww(2) 


@ %def hqlww

<<coefficient y{\_}hqlww>>=
y_hqlww	2	.95,-0.3129029344874886
@ %def y_hqlww

\subsection[e.6 LEP]{e.6 LEP: Employment in  business sector (employee and  self-employed)}

<<variable LEP>>=
LEP      = Employment in  business sector (employee and  self-employed)                                  
@ %def LEP

<<equation lep>>=
lep: lep - lep_aerr = lhp / lww 


@ %def lep

\subsection[e.7 LEO]{e.7 LEO: Difference between household and business sector payroll employment, less gov't emp.}

<<variable LEO>>=
LEO      = Difference between household and business sector payroll employment, less gov't emp.          
@ %def LEO

<<equation leo>>=
leo: log(leo) - leo_aerr = log(qleor*qlf) + y_leo(1)*log(leo(-1)/(qleor(-1)*qlf(-1))) _
                                           + y_leo(2)*xgap2(-1) 


@ %def leo

<<coefficient y{\_}leo>>=
y_leo	2	0.6995814979956745,-0.01620869768699893
@ %def y_leo

\subsection[e.8 LEF]{e.8 LEF: Federal civilian employment ex. gov. enterprise}

<<variable LEF>>=
LEF      = Federal civilian employment ex. gov. enterprise                                               
@ %def LEF

<<equation lef>>=
lef: d( log(lef), 0, 1 ) - lef_aerr = d( log(ulef), 0, 1 )  _
                        + d( log(egfl), 0, 1 )  _
                  - dglprd*(d( log(lprdt), 0, 1 )) 


@ %def lef

\subsection[e.9 LES]{e.9 LES: S\&L government employment ex. gov. enterprise}

<<variable LES>>=
LES      = S&L government employment ex. gov. enterprise                                                 
@ %def LES

<<equation les>>=
les: d( log(les), 0, 1 ) - les_aerr = d( log(ules), 0, 1 )  _
                        + d( log(egsl), 0, 1 )  _
                  - dglprd*(d( log(lprdt), 0, 1 )) 


@ %def les

\subsection[e.10 LEH]{e.10 LEH: Civilian employment (break adjusted)}

<<variable LEH>>=
LEH      = Civilian employment (break adjusted)                                                          
@ %def LEH

<<equation leh>>=
leh: leh - leh_aerr = lep + leo + les + lef 


@ %def leh

\subsection[e.11 LFPR]{e.11 LFPR: Labor force participation rate}

<<variable LFPR>>=
LFPR     = Labor force participation rate                                                                
@ %def LFPR

<<equation lfpr>>=
lfpr: d( lfpr, 0, 1)  - lfpr_aerr = hqlfpr _
                          + y_lfpr(1) * (qlfpr(-1) - lfpr(-1)) _
                          + y_lfpr(2) * (lur(-1) - lurnat(-1)) 


@ %def lfpr

<<coefficient y{\_}lfpr>>=
y_lfpr	2	0.5580285205989896,-0.0008755566736369085
@ %def y_lfpr

\subsection[e.12 QLFPR]{e.12 QLFPR: Trend labor force participation rate}

<<variable QLFPR>>=
QLFPR    = Trend labor force participation rate                                                          
@ %def QLFPR

<<equation qlfpr>>=
qlfpr: qlfpr - qlfpr_aerr = qlfpr(-1) + hqlfpr 


@ %def qlfpr

\subsection[e.13 HQLFPR]{e.13 HQLFPR: Drift component of change in QLFPR}

<<variable HQLFPR>>=
HQLFPR   = Drift component of change in QLFPR                                                            
@ %def HQLFPR

<<equation hqlfpr>>=
hqlfpr: hqlfpr - hqlfpr_aerr = y_hqlfpr(1) + y_hqlfpr(2)*hqlfpr(-1) 


@ %def hqlfpr

<<coefficient y{\_}hqlfpr>>=
y_hqlfpr	2	0.00,0.95
@ %def y_hqlfpr

\subsection[e.14 LF]{e.14 LF: Civilian labor force (break adjusted)}

<<variable LF>>=
LF       = Civilian labor force (break adjusted)                                                         
@ %def LF

<<equation lf>>=
lf: lf - lf_aerr = lfpr * n16 


@ %def lf

\subsection[e.15 LUR]{e.15 LUR: Civilian unemployment rate (break adjusted)}

<<variable LUR>>=
LUR      = Civilian unemployment rate (break adjusted)                                                   
@ %def LUR

<<equation lur>>=
lur: lur - lur_aerr = 100*(1 - leh/lf) 


@ %def lur

\subsection[e.16 LURBLS]{e.16 LURBLS: Civilian unemployment rate (published)}

<<variable LURBLS>>=
LURBLS   = Civilian unemployment rate (published)                                                        
@ %def LURBLS

<<equation lurbls>>=
lurbls: lurbls - lurbls_aerr = lur 


@ %def lurbls

\subsection[e.17 QLEP]{e.17 QLEP: Desired level of  business employment}

<<variable QLEP>>=
QLEP     = Desired level of  business employment                                                         
@ %def QLEP

<<equation qlep>>=
qlep: qlep - qlep_aerr = lhp / qlww 


@ %def qlep

\subsection[e.18 QLF]{e.18 QLF: Desired level of civilian labor force}

<<variable QLF>>=
QLF      = Desired level of civilian labor force                                                         
@ %def QLF

<<equation qlf>>=
qlf: qlf - qlf_aerr = qlfpr * n16 


@ %def qlf

\subsection[e.19 LEFT]{e.19 LEFT: Federal civilian employment ex. gov. enterprise, trend}

<<variable LEFT>>=
LEFT     = Federal civilian employment ex. gov. enterprise, trend                                        
@ %def LEFT

<<equation left>>=
left: left - left_aerr = y_left(1) * left(-1) * (hqlfpr+n16/n16(-1))  _
                 + y_left(2) * lef 


@ %def left

<<coefficient y{\_}left>>=
y_left	2	0.90000000000000000E+00,0.10000000000000000E+00
@ %def y_left

\subsection[e.20 LEST]{e.20 LEST: S\&L government employment ex. gov. enterprise, trend}

<<variable LEST>>=
LEST     = S&L government employment ex. gov. enterprise, trend                                          
@ %def LEST

<<equation lest>>=
lest: lest - lest_aerr = y_lest(1) * lest(-1) * (hqlfpr+n16/n16(-1))  _
                 + y_lest(2) * les 


@ %def lest

<<coefficient y{\_}lest>>=
y_lest	2	0.90000000000000000E+00,0.10000000000000000E+00
@ %def y_lest


\subsection[e.21 LEPPOT]{e.21 LEPPOT: Potential employment in  business sector}

<<variable LEPPOT>>=
LEPPOT   = Potential employment in  business sector                                                      
@ %def LEPPOT

<<equation leppot>>=
leppot: leppot - leppot_aerr = qlf*(1-.01*lurnat - qleor) - left - lest 


@ %def leppot

\subsection[e.22 HLEPT]{e.22 HLEPT: Trend growth rate of LEP (annual rate)}

<<variable HLEPT>>=
HLEPT    = Trend growth rate of LEP (annual rate)                                                        
@ %def HLEPT

<<equation hlept>>=
hlept: hlept - hlept_aerr = (1-dmpstb) * 400 *  _
        (hqlfpr * n16 * (1-.01*lurnat-qleor) _
      + d( n16, 0, 1) * qlfpr * (1-.01*lurnat-qleor) _
      - d( left, 0, 1) _
      - d( lest, 0, 1) ) _
      /  ( leppot/2 +  leppot(-1)/2)  _
      + dmpstb * 400 * d( log(n16), 0, 1 ) 


@ %def hlept

\subsection[e.23 LPRDT]{e.23 LPRDT: Trend labor productivity}

<<variable LPRDT>>=
LPRDT    = Trend labor productivity                                                                      
@ %def LPRDT

<<equation lprdt>>=
lprdt: log(lprdt) - lprdt_aerr  = log(xgpot) - log(leppot) - log(qlww) 


@ %def lprdt

\subsection[e.24 HLPRDT]{e.24 HLPRDT: Trend growth rate of output per hour}

<<variable HLPRDT>>=
HLPRDT   = Trend growth rate of output per hour                                                          
@ %def HLPRDT

<<equation hlprdt>>=
hlprdt: hlprdt - hlprdt_aerr = hgx - hlept - hqlww 


@ %def hlprdt

\subsection[e.25 LURNAT]{e.25 LURNAT: Natural rate of unemployment}

<<variable LURNAT>>=
LURNAT   = Natural rate of unemployment                                                                  
@ %def LURNAT

<<equation lurnat>>=
lurnat: lurnat - lurnat_aerr = lurnat(-1) 


@ %def lurnat


\section{Nominal Income}

\subsection[f.1 XPN]{f.1 XPN: Final sales plus imports less government labor, current \$}

<<variable XPN>>=
XPN      = Final sales plus imports less government labor, current $                                     
@ %def XPN

<<equation xpn>>=
xpn: xpn - xpn_aerr = .01 * pxp * xp 


@ %def xpn

\subsection[f.2 XGDPN]{f.2 XGDPN: GDP, current \$}

<<variable XGDPN>>=
XGDPN    = GDP, current $                                                                                
@ %def XGDPN

<<equation xgdpn>>=
xgdpn: xgdpn - xgdpn_aerr = xpn + ein - emn + egfln + egsln 


@ %def xgdpn

\subsection[f.3 XFSN]{f.3 XFSN: Final sales of gross domestic product, current \$}

<<variable XFSN>>=
XFSN     = Final sales of gross domestic product, current $                                              
@ %def XFSN

<<equation xfsn>>=
xfsn: xfsn - xfsn_aerr = xgdpn - ein 


@ %def xfsn

\subsection[f.4 XGDEN]{f.4 XGDEN: Nominal Absorption, current \$}

<<variable XGDEN>>=
XGDEN    = Nominal Absorption, current $                                                                 
@ %def XGDEN

<<equation xgden>>=
xgden: xgden - xgden_aerr = xgdpn + emn - exn 


@ %def xgden

\subsection[f.5 XBN]{f.5 XBN: Business output (BEA definition), current \$}

<<variable XBN>>=
XBN      = Business output (BEA definition), current $                                                   
@ %def XBN

<<equation xbn>>=
xbn: xbn - xbn_aerr =  pxb/100*xbo + xgdpn -xgdo*pgdp/100 


@ %def xbn

\subsection[f.6 XGN]{f.6 XGN: Output of  business sector plus oil imports, current \$}

<<variable XGN>>=
XGN      = Output of  business sector plus oil imports, current $                                        
@ %def XGN

<<equation xgn>>=
xgn: xgn - xgn_aerr = xbn + empn 


@ %def xgn

\subsection[f.7 JCCACN]{f.7 JCCACN: Consumption of fixed capital, corporate, current \$}

<<variable JCCACN>>=
JCCACN   = Consumption of fixed capital, corporate, current $                                            
@ %def JCCACN

<<equation jccacn>>=
jccacn: jccacn - jccacn_aerr = ujccac*(jccan - jygfgn - jygfen - jygsgn - jygsen _
                              -.01*jrh*phr(-1)*pxp(-1)*kh(-1)) 


@ %def jccacn

\subsection[f.8 JCCAN]{f.8 JCCAN: Consumption of fixed capital, current \$}

<<variable JCCAN>>=
JCCAN    = Consumption of fixed capital, current $                                                       
@ %def JCCAN

<<equation jccan>>=
jccan: jccan - jccan_aerr = jygfgn + jygfen + jygsgn + jygsen + .01*ujcca*pxp(-1) _
                   * (phr(-1)*kh(-1)*jrh + ppsr(-1)*kps(-1)*jrps _
                     + pkpdr(-1)*kpd(-1)*jrpd) 


@ %def jccan

\subsection[f.9 JYGFEN]{f.9 JYGFEN: CFC, federal government enterprises, current \$}

<<variable JYGFEN>>=
JYGFEN   = CFC, federal government enterprises, current $                                                
@ %def JYGFEN

<<equation jygfen>>=
jygfen: jygfen - jygfen_aerr = ujygfe *  (.01 * pgdp * xgdpt) 


@ %def jygfen

\subsection[f.10 JYGFGN]{f.10 JYGFGN: CFC, federal government, general, current \$}

<<variable JYGFGN>>=
JYGFGN   = CFC, federal government, general, current $                                                   
@ %def JYGFGN

<<equation jygfgn>>=
jygfgn: jygfgn - jygfgn_aerr = ujygfg *  (.01 * pgdp * xgdpt) 


@ %def jygfgn

\subsection[f.11 JYGSEN]{f.11 JYGSEN: CFC, state and local government enterprises, current \$}

<<variable JYGSEN>>=
JYGSEN   = CFC, state and local government enterprises, current $                                        
@ %def JYGSEN

<<equation jygsen>>=
jygsen: jygsen - jygsen_aerr = ujygse *  (.01 * pgdp * xgdpt) 


@ %def jygsen

\subsection[f.12 JYGSGN]{f.12 JYGSGN: CFC, state and local government, general, current \$}

<<variable JYGSGN>>=
JYGSGN   = CFC, state and local government, general, current $                                           
@ %def JYGSGN

<<equation jygsgn>>=
jygsgn: jygsgn - jygsgn_aerr = ujygsg *  (.01 * pgdp * xgdpt) 


@ %def jygsgn

\subsection[f.13 JYNCN]{f.13 JYNCN: Noncorporate business CFC, current \$}

<<variable JYNCN>>=
JYNCN    = Noncorporate business CFC, current $                                                          
@ %def JYNCN

<<equation jyncn>>=
jyncn: jyncn - jyncn_aerr = jccan - jccacn - jygfgn - jygfen - jygsgn - jygsen 


@ %def jyncn

\subsection[f.14 YNIN]{f.14 YNIN: National income}

<<variable YNIN>>=
YNIN     = National income                                                                               
@ %def YNIN

<<equation ynin>>=
ynin: ynin - ynin_aerr = uyni*(xgdin+fynin-jccan) 


@ %def ynin

\subsection[f.15 YNILN]{f.15 YNILN: Labor income (national income component)}

<<variable YNILN>>=
YNILN    = Labor income (national income component)                                                      
@ %def YNILN

<<equation yniln>>=
yniln: yniln - yniln_aerr = 0.01 *  uyl * (pl*lhp + pgfl*egfl + pgsl*egsl) 


@ %def yniln

\subsection[f.16 YNISEN]{f.16 YNISEN: Propprietors' income (national income component)}

<<variable YNISEN>>=
YNISEN   = Propprietors' income (national income component)                                              
@ %def YNISEN

<<equation ynisen>>=
ynisen: ynisen - ynisen_aerr = uysen*xbn 


@ %def ynisen

\subsection[f.17 YNIIN]{f.17 YNIIN: Net interest and rental income (national income component)}

<<variable YNIIN>>=
YNIIN    = Net interest and rental income (national income component)                                    
@ %def YNIIN

<<equation yniin>>=
yniin: yniin/(ynin(-1)-yniln(-1)) - yniin_aerr  _
                 = y_yniin(1) _
                 + y_yniin(2) * (yniin(-1)/(ynin(-2)-yniln(-2))) _
                 + y_yniin(3) * (.01*rrmet*.01*phr(-1)*pxp(-1)*kh(-1)/(ynin(-1)-yniln(-1))) _
                 + y_yniin(4) * ((.01*rbbbe)*(wdnfcn(-1)/(ynin(-1)-yniln(-1)))) _
                 + y_yniin(5) * (.01*d( rbbbe*(wdnfcn(-1)/(ynin(-1)-yniln(-1))), 0, 1 )) _
                 + y_yniin(6) * (.01*fnin(-1)/(ynin(-1)-yniln(-1))) 


@ %def yniin

<<coefficient y{\_}yniin>>=
y_yniin	6	0.01335460515030035,0.8715712577633621,0.03107757397810296,0.1284287422366379,0.4767821941927384,0.3277798188988036
@ %def y_yniin

\subsection[f.18 QYNIDN]{f.18 QYNIDN: Desired level of dividends}

<<variable QYNIDN>>=
QYNIDN   = Desired level of dividends                                                                    
@ %def QYNIDN

<<equation qynidn>>=
qynidn: log(qynidn) - qynidn_aerr = y_qynidn(1)  _
                          + y_qynidn(2)*d79a  _
                          + y_qynidn(3)*log((@recode((ynicpn-tfcin-tscin)>(.01),ynicpn-tfcin-tscin,.01))) 


@ %def qynidn

<<coefficient y{\_}qynidn>>=
y_qynidn	3	-0.9889159016018153,0.3614481909275686,1
@ %def y_qynidn

\subsection[f.19 YNIDN]{f.19 YNIDN: Dividends (national income component)}

<<variable YNIDN>>=
YNIDN    = Dividends (national income component)                                                         
@ %def YNIDN

<<equation ynidn>>=
ynidn: d( log((ynidn-ymsdn)/pxb), 0, 1 ) - ynidn_aerr =  _
                          y_ynidn(1) * log(qynidn(-1)/(ynidn(-1)-ymsdn(-1))) _
                        + y_ynidn(2) * d( log((ynidn(-1)-ymsdn(-1))/pxb(-1)), 0, 1 ) _
                        + y_ynidn(3) * zynid 


@ %def ynidn

<<coefficient y{\_}ynidn>>=
y_ynidn	3	0.0903554997290158,-0.1364018197288298,1
@ %def y_ynidn

\subsection[f.20 YNICPN]{f.20 YNICPN: Corporate profits (national income component)}

<<variable YNICPN>>=
YNICPN   = Corporate profits (national income component)                                                 
@ %def YNICPN

<<equation ynicpn>>=
ynicpn: ynicpn - ynicpn_aerr = uynicp * (@recode((ynin-yniln-yniin-ynisen-tfibn-tsibn+gfsubn+gssubn)>(tfcin+tscin+.01*xgdpn),ynin-yniln-yniin-ynisen-tfibn-tsibn+gfsubn+gssubn,tfcin+tscin+.01*xgdpn)) 


@ %def ynicpn

\subsection[f.21 YPN]{f.21 YPN: Personal income}

<<variable YPN>>=
YPN      = Personal income                                                                               
@ %def YPN

<<equation ypn>>=
ypn: ypn - ypn_aerr = uyp * (yhln + yhtn + yhptn) 


@ %def ypn

\subsection[f.22 YDN]{f.22 YDN: Disposable income}

<<variable YDN>>=
YDN      = Disposable income                                                                             
@ %def YDN

<<equation ydn>>=
ydn: ydn - ydn_aerr = uyd * (ypn - tfpn - tspn) 


@ %def ydn

\subsection[f.23 RSPNIA]{f.23 RSPNIA: Personal saving rate}

<<variable RSPNIA>>=
RSPNIA   = Personal saving rate                                                                          
@ %def RSPNIA

<<equation rspnia>>=
rspnia: rspnia - rspnia_aerr =  100 * yhsn / ydn 


@ %def rspnia

\subsection[f.24 YCSN]{f.24 YCSN: Net corporate cash flow with IVA and CCA}

<<variable YCSN>>=
YCSN     = Net corporate cash flow with IVA and CCA                                                      
@ %def YCSN

<<equation ycsn>>=
ycsn: ycsn - ycsn_aerr = ynicpn - tfcin - tscin - ftcin - ynidn + jccacn 


@ %def ycsn

\subsection[f.25 YKIN]{f.25 YKIN: Income from stock of inventories}

<<variable YKIN>>=
YKIN     = Income from stock of inventories                                                              
@ %def YKIN

<<equation ykin>>=
ykin: ykin - ykin_aerr = .01*rtinv*pxb* (ki + ki(-1)) /2 


@ %def ykin

\subsection[f.26 YKPDN]{f.26 YKPDN: Income from stock of equipment}

<<variable YKPDN>>=
YKPDN    = Income from stock of equipment                                                                
@ %def YKPDN

<<equation ykpdn>>=
ykpdn: ykpdn - ykpdn_aerr = .01*rtpd*pxb* ( kpd +  kpd(-1)) /2 


@ %def ykpdn

\subsection[f.27 YKPSN]{f.27 YKPSN: Income from stock of nonresidential structures}

<<variable YKPSN>>=
YKPSN    = Income from stock of nonresidential structures                                                
@ %def YKPSN

<<equation ykpsn>>=
ykpsn: ykpsn - ykpsn_aerr = .01*rtps*pxb* ( kps +  kps(-1)) /2 


@ %def ykpsn

\subsection[f.28 YH]{f.28 YH: Income, household, total (real after-tax)}

<<variable YH>>=
YH       = Income, household, total (real after-tax)                                                     
@ %def YH

<<equation yh>>=
yh: yh - yh_aerr = yhl + yht + yhp 


@ %def yh

\subsection[f.29 YHGAP]{f.29 YHGAP: Income, household, total, ratio to XGDP, cyclical component (real after-tax)}

<<variable YHGAP>>=
YHGAP    = Income, household, total, ratio to XGDP, cyclical component (real after-tax)                  
@ %def YHGAP

<<equation yhgap>>=
yhgap: yhgap - yhgap_aerr = 100*(yhshr/zyhst-1) 


@ %def yhgap

\subsection[f.30 YHIBN]{f.30 YHIBN: Consumer interest payments to business}

<<variable YHIBN>>=
YHIBN    = Consumer interest payments to business                                                        
@ %def YHIBN

<<equation yhibn>>=
yhibn: d( log(yhibn), 0, 1 ) - yhibn_aerr _
                          = y_yhibn(1) *  ( picxfe/1600 +  picxfe(-1)/1600 +  picxfe(-2)/1600 +  picxfe(-3)/1600)   _
                          + y_yhibn(2)  _
                          + y_yhibn(3) * log(ecnian(-1)/yhibn(-1)) _
                          + y_yhibn(4) * (d( log(yhibn(-1)), 0, 1 ) -  ( picxfe(-1)/1600 +  picxfe(-2)/1600 +  picxfe(-3)/1600 +  picxfe(-4)/1600) ) _
                          + y_yhibn(5) * d79a _
                          + y_yhibn(6) * rcar(-1) _
                          + y_yhibn(7) * log(.01*pcdr(-1)*pcnia(-1)*ecd(-1)/ecnian(-1)) _
                          + y_yhibn(8) * d( rffe, 0, 1 ) 


@ %def yhibn

<<coefficient y{\_}yhibn>>=
y_yhibn	8	1,-0.1336307554530098,0.06545518537060361,0.2942182559897778,0.02356904269727301,0.002496343260766213,0.06642904036078379,0.005382889880225242
@ %def y_yhibn

\subsection[f.31 YHIN]{f.31 YHIN: Income, household, net interest and rent}

<<variable YHIN>>=
YHIN     = Income, household, net interest and rent                                                      
@ %def YHIN

<<equation yhin>>=
yhin: yhin - yhin_aerr = uyhi * (yniin + gfintn + gsintn + yhibn) 


@ %def yhin

\subsection[f.32 YHL]{f.32 YHL: Income, household, labor compensation (real after-tax)}

<<variable YHL>>=
YHL      = Income, household, labor compensation (real after-tax)                                        
@ %def YHL

<<equation yhl>>=
yhl: yhl - yhl_aerr = (1-tryh)*yhln/(.01*pcnia) 


@ %def yhl

\subsection[f.33 YHLN]{f.33 YHLN: Income, household, labor compensation}

<<variable YHLN>>=
YHLN     = Income, household, labor compensation                                                         
@ %def YHLN

<<equation yhln>>=
yhln: yhln - yhln_aerr = uyhln * (yniln - tfsin - tssin) 


@ %def yhln

\subsection[f.34 YHP]{f.34 YHP: Income, household, property (real after-tax)}

<<variable YHP>>=
YHP      = Income, household, property (real after-tax)                                                  
@ %def YHP

<<equation yhp>>=
yhp: yhp - yhp_aerr = ((1-tryh)*yhptn+yhpntn)/(.01*pcnia) 


@ %def yhp

\subsection[f.35 YHPGAP]{f.35 YHPGAP: Income, household, property, ratio to YH, cyclical component (real after-tax)}

<<variable YHPGAP>>=
YHPGAP   = Income, household, property, ratio to YH, cyclical component (real after-tax)                 
@ %def YHPGAP

<<equation yhpgap>>=
yhpgap: yhpgap - yhpgap_aerr = 100*(yhpshr/zyhpst-1) 


@ %def yhpgap

\subsection[f.36 YHPNTN]{f.36 YHPNTN: Income, household, property, non-taxable component}

<<variable YHPNTN>>=
YHPNTN   = Income, household, property, non-taxable component                                            
@ %def YHPNTN

<<equation yhpntn>>=
yhpntn: yhpntn - yhpntn_aerr = .01*pcnia*pcdr*yhpcd  _
                     - yhibn + ynicpn - tfcin - tscin - ynidn _
                     - .01 * zpi10 *(gfdbtn+gsdbtn) 


@ %def yhpntn

\subsection[f.37 YHPSHR]{f.37 YHPSHR: Income, household, property, ratio to YH (real after-tax)}

<<variable YHPSHR>>=
YHPSHR   = Income, household, property, ratio to YH (real after-tax)                                     
@ %def YHPSHR

<<equation yhpshr>>=
yhpshr: yhpshr - yhpshr_aerr = yhp/yh 


@ %def yhpshr

\subsection[f.38 YHPTN]{f.38 YHPTN: Income, household, property, taxable component}

<<variable YHPTN>>=
YHPTN    = Income, household, property, taxable component                                                
@ %def YHPTN

<<equation yhptn>>=
yhptn: yhptn - yhptn_aerr = uyhptn*(ynisen+yhin+ynidn) 


@ %def yhptn

\subsection[f.39 YHSHR]{f.39 YHSHR: Income, household, total, ratio to XGDP (real after-tax)}

<<variable YHSHR>>=
YHSHR    = Income, household, total, ratio to XGDP (real after-tax)                                      
@ %def YHSHR

<<equation yhshr>>=
yhshr: yhshr - yhshr_aerr = yh/xgdp 


@ %def yhshr

\subsection[f.40 YHSN]{f.40 YHSN: Personal saving}

<<variable YHSN>>=
YHSN     = Personal saving                                                                               
@ %def YHSN

<<equation yhsn>>=
yhsn: yhsn - yhsn_aerr = yhln + yhtn + yhptn - tfpn - tspn - ecnian - yhibn _
                 + uyhsn * xgdptn 


@ %def yhsn

\subsection[f.41 YHT]{f.41 YHT: Income, household, transfer (real after-tax), net basis}

<<variable YHT>>=
YHT      = Income, household, transfer (real after-tax), net basis                                       
@ %def YHT

<<equation yht>>=
yht: yht - yht_aerr = yhtn/(.01*pcnia) 


@ %def yht

\subsection[f.42 YHTGAP]{f.42 YHTGAP: Income, household, transfer, ratio to YH, cyclical component (real after-tax)}

<<variable YHTGAP>>=
YHTGAP   = Income, household, transfer, ratio to YH, cyclical component (real after-tax)                 
@ %def YHTGAP

<<equation yhtgap>>=
yhtgap: yhtgap - yhtgap_aerr = 100*(yhtshr/zyhtst-1) 


@ %def yhtgap

\subsection[f.43 YHTN]{f.43 YHTN: Income, household, transfer payments. net basis}

<<variable YHTN>>=
YHTN     = Income, household, transfer payments. net basis                                               
@ %def YHTN

<<equation yhtn>>=
yhtn: yhtn - yhtn_aerr = uyhtn*(gftn+gstn) 


@ %def yhtn

\subsection[f.44 YHTSHR]{f.44 YHTSHR: Income, household, transfer, ratio to YH (real after-tax)}

<<variable YHTSHR>>=
YHTSHR   = Income, household, transfer, ratio to YH (real after-tax)                                     
@ %def YHTSHR

<<equation yhtshr>>=
yhtshr: yhtshr - yhtshr_aerr = yht/yh 


@ %def yhtshr

\subsection[f.45 WDNFCN]{f.45 WDNFCN: Net financial liabilities, nonfinancial nonfarm corporations}

<<variable WDNFCN>>=
WDNFCN   = Net financial liabilities, nonfinancial nonfarm corporations                                  
@ %def WDNFCN

<<equation wdnfcn>>=
wdnfcn: d( log(wdnfcn), 0, 1) - wdnfcn_aerr  _
                = y_wdnfcn(1) * log(wdnfcn(-1)/(ynin(-1)-yniln(-1))) _
                + y_wdnfcn(2)  _
                + y_wdnfcn(3) * d( log(wdnfcn(-1)), 0, 1) _
                + y_wdnfcn(4) * d( log(wdnfcn(-2)), 0, 1) _
                + y_wdnfcn(5) * xgap2 


@ %def wdnfcn

<<coefficient y{\_}wdnfcn>>=
y_wdnfcn	5	-0.02207644135378071,0.01442097831747879,0.2375257265379373,0.09693074193582522,0.001671232577613138
@ %def y_wdnfcn

\subsection[f.46 XGDIN]{f.46 XGDIN: Gross domestic income, current \$}

<<variable XGDIN>>=
XGDIN    = Gross domestic income, current $                                                              
@ %def XGDIN

<<equation xgdin>>=
xgdin: xgdin - xgdin_aerr = xgdi *(pgdp/100) 


@ %def xgdin


\section{Wages and Prices}

\subsection[g.1 PICXFE]{g.1 PICXFE: Inflation rate, personal consumption expenditures, ex. food and energy, cw}

<<variable PICXFE>>=
PICXFE   = Inflation rate, personal consumption expenditures, ex. food and energy, cw                    
@ %def PICXFE

<<equation picxfe>>=
picxfe: picxfe - picxfe_aerr = (y_picxfe(1)*picxfe(-1) _
                     + y_picxfe(3)*zpicxfe _
                     + (1-y_picxfe(3))*(1-y_picxfe(1))*ptr(-1) _
                     + y_picxfe(2)*400*log(qpcnia(-1)/pcnia(-1))) / (1+y_picxfe(1)*y_picxfe(3)) 


@ %def picxfe

<<coefficient y{\_}picxfe>>=
y_picxfe	3	0.644974342322,0.00373609153735,0.98
@ %def y_picxfe

\subsection[g.2 PIECI]{g.2 PIECI: Annualized rate of growth of EI hourly compensation}

<<variable PIECI>>=
PIECI    = Annualized rate of growth of EI hourly compensation                                           
@ %def PIECI

<<equation pieci>>=
pieci: pieci - pieci_aerr = (.25*y_pieci(1)*((1-y_pieci(4))*(pieci(-1)+pieci(-2)+pieci(-3)) + pieci(-4)) _
                     + y_pieci(4)*zpieci _
                     + (1-y_pieci(4))*(1-y_pieci(1))*(ptr(-1) + hlprdt(-1) - 400*huqpct(-1)) _
                     + y_pieci(2)*(lur(-1)-lurnat(-1)) _
                     + y_pieci(3)*400*log(qpl(-1)/pl(-1))) / (1+.25*y_pieci(1)*y_pieci(4)) 


@ %def pieci

<<coefficient y{\_}pieci>>=
y_pieci	4	0.811777544324,-0.0148780773818,0.00186804576867,0.98
@ %def y_pieci

\subsection[g.3 PIPXNC]{g.3 PIPXNC: Inflation rate, price of adjusted final sales excluding consumption (annual rate)}

<<variable PIPXNC>>=
PIPXNC   = Inflation rate, price of adjusted final sales excluding consumption (annual rate)             
@ %def PIPXNC

<<equation pipxnc>>=
pipxnc: pipxnc - pipxnc_aerr = picnia - 1.99 * 400 * huqpct _
                     + y_pipxnc(1) * (pipxnc(-1) - picnia(-1) + 1.99 * 400 * huqpct(-1)) _
                     + y_pipxnc(2) * (pipxnc(-2) - picnia(-2) + 1.99 * 400 * huqpct(-2)) _
                     + y_pipxnc(3) * .5 * ( ( (emon/xpn) +  (emon(-1)/xpn(-1))) ) * 400 * d(log(fpxr), 0, 1)   


@ %def pipxnc

<<coefficient y{\_}pipxnc>>=
y_pipxnc	3	.462801,.229745,-.284477
@ %def y_pipxnc

\subsection[g.4 PICNIA]{g.4 PICNIA: Inflation rate, personal consumption expenditures, cw}

<<variable PICNIA>>=
PICNIA   = Inflation rate, personal consumption expenditures, cw                                         
@ %def PICNIA

<<equation picnia>>=
picnia: picnia - picnia_aerr = picxfe _
                     + ( ( ucfs +  ucfs(-1)) /2) * 400 * d(log(pcfr), 0, 1) _
                     + ( ( uces +  uces(-1)) /2) * 400 * d(log(pcer), 0, 1) 


@ %def picnia

\subsection[g.5 PCNIA]{g.5 PCNIA: Price index for personal consumption expenditures, cw (NIPA definition)}

<<variable PCNIA>>=
PCNIA    = Price index for personal consumption expenditures, cw (NIPA definition)                       
@ %def PCNIA

<<equation pcnia>>=
pcnia: d( log(pcnia), 0, 1 ) - pcnia_aerr = picnia / 400 


@ %def pcnia

\subsection[g.6 PCPI]{g.6 PCPI: Consumer price index,total}

<<variable PCPI>>=
PCPI     = Consumer price index,total                                                                    
@ %def PCPI

<<equation pcpi>>=
pcpi: pcpi - pcpi_aerr = upcpi * exp(.025*log(pcer)) * pcnia 


@ %def pcpi

\subsection[g.7 PCPIX]{g.7 PCPIX: Consumer price index,excluding food and energy}

<<variable PCPIX>>=
PCPIX    = Consumer price index,excluding food and energy                                                
@ %def PCPIX

<<equation pcpix>>=
pcpix: pcpix - pcpix_aerr = upcpix * pcxfe 


@ %def pcpix

\subsection[g.8 PIPL]{g.8 PIPL: Rate of growth of PL}

<<variable PIPL>>=
PIPL     = Rate of growth of PL                                                                          
@ %def PIPL

<<equation pipl>>=
pipl: pipl - pipl_aerr = pieci 


@ %def pipl

\subsection[g.9 PL]{g.9 PL: Compensation per hour,  business}

<<variable PL>>=
PL       = Compensation per hour,  business                                                              
@ %def PL

<<equation pl>>=
pl: log(pl) - pl_aerr = log(pl(-1)) + pipl/400 


@ %def pl

\subsection[g.10 PXNC]{g.10 PXNC: Price of adjusted final sales excluding consumption}

<<variable PXNC>>=
PXNC     = Price of adjusted final sales excluding consumption                                           
@ %def PXNC

<<equation pxnc>>=
pxnc: d( log(pxnc), 0, 1 ) - pxnc_aerr = pipxnc/400 


@ %def pxnc

\subsection[g.11 PWSTAR]{g.11 PWSTAR: Equilibrium business sector price markup}

<<variable PWSTAR>>=
PWSTAR   = Equilibrium NFB price markup                                                                  
@ %def PWSTAR

<<equation pwstar>>=
pwstar: pwstar - pwstar_aerr = y_pwstar(1) + y_pwstar(2)*pwstar(-1) 


@ %def pwstr

<<coefficient y{\_}pwstar>>=
y_pwstar	2	0.00,1.00
@ %def y_pwstar

\subsection[g.12 QPXG]{g.12 QPXG: Desired price level of private output ex. energy, housing, and farm}

<<variable QPXG>>=
QPXG     = Desired price level of private output ex. energy, housing, and farm                           
@ %def QPXG

<<equation qpxg>>=
qpxg: log(qpxg) - qpxg_aerr = log(pwstar) + y_qpxg(1) + y_qpxg(2)*log(pl/lprdt) 


@ %def qpxg

<<coefficient y{\_}qpxg>>=
y_qpxg	2	0.0,1
@ %def y_qpxg

\subsection[g.13 QPL]{g.13 QPL: Desired level of compensation per hour, trending component}

<<variable QPL>>=
QPL      = Desired level of compensation per hour, trending component                                    
@ %def QPL

<<equation qpl>>=
qpl: log(qpl) - qpl_aerr = log(pl) + y_qpl(1) * log(pxg/qpxg) 


@ %def qpl

<<coefficient y{\_}qpl>>=
y_qpl	1	1.0
@ %def y_qpl

\subsection[g.14 QPXP]{g.14 QPXP: Desired price level of adjusted final sales}

<<variable QPXP>>=
QPXP     = Desired price level of adjusted final sales                                                   
@ %def QPXP

<<equation qpxp>>=
qpxp: qpxp - qpxp_aerr = 100*(xpn + (.01*qpxg*xg-xgn))/xp 


@ %def qpxp

\subsection[g.15 QPCNIA]{g.15 QPCNIA: Desired level of consumption price}

<<variable QPCNIA>>=
QPCNIA   = Desired level of consumption price                                                            
@ %def QPCNIA

<<equation qpcnia>>=
qpcnia: log(qpcnia) - qpcnia_aerr = log(qpxp) + log(uqpct) 


@ %def qpcnia

\subsection[g.16 PXP]{g.16 PXP: Price index for final sales plus imports less gov. labor}

<<variable PXP>>=
PXP      = Price index for final sales plus imports less gov. labor                                      
@ %def PXP

<<equation pxp>>=
pxp: d( log(pxp), 0, 1 ) - pxp_aerr =  _
       .5*( ecnian/xpn + ecnian(-1)/xpn(-1)) * d( log(pcnia), 0, 1) _
     + .5*( (xpn-ecnian)/xpn + (xpn(-1)-ecnian(-1))/xpn(-1)) * d( log(pxnc), 0, 1) 


@ %def pxp

\subsection[g.17 PGFIR]{g.17 PGFIR: Price index for federal gov. investment, cw (relative to PXP)}

<<variable PGFIR>>=
PGFIR    = Price index for federal gov. investment, cw (relative to PXP)                                 
@ %def PGFIR

<<equation pgfir>>=
pgfir: log(pgfir) - pgfir_aerr - log(pgfir(-1)) = y_pgfir(1) + pipxnc/400 + dpadj - d(log(pxp), 0, 1) 


@ %def pgfir

<<coefficient y{\_}pgfir>>=
y_pgfir	1	0.0
@ %def y_pgfir

\subsection[g.18 PGFOR]{g.18 PGFOR: Price index for federal governemnt consumption ex. emp. comp., cw (relative to PXP)}

<<variable PGFOR>>=
PGFOR    = Price index for federal governemnt consumption ex. emp. comp., cw (relative to PXP)           
@ %def PGFOR

<<equation pgfor>>=
pgfor: log(pgfor) - pgfor_aerr - log(pgfor(-1)) = y_pgfor(1) + pipxnc/400 + dpadj - d(log(pxp), 0, 1) 


@ %def pgfor

<<coefficient y{\_}pgfor>>=
y_pgfor	1	0.0
@ %def y_pgfor

\subsection[g.19 PGSIR]{g.19 PGSIR: Price index for S\&L government investment (relative to PXP)}

<<variable PGSIR>>=
PGSIR    = Price index for S&L government investment (relative to PXP)                                   
@ %def PGSIR

<<equation pgsir>>=
pgsir: log(pgsir) - pgsir_aerr - log(pgsir(-1)) = y_pgsir(1) + pipxnc/400 + dpadj - d(log(pxp), 0, 1) 


@ %def pgsir

<<coefficient y{\_}pgsir>>=
y_pgsir	1	0.0
@ %def y_pgsir

\subsection[g.20 PGSOR]{g.20 PGSOR: Price index for S\&L government consumption ex. emp. comp., cw (relative to PXP)}

<<variable PGSOR>>=
PGSOR    = Price index for S&L government consumption ex. emp. comp., cw (relative to PXP)               
@ %def PGSOR

<<equation pgsor>>=
pgsor: log(pgsor) - pgsor_aerr - log(pgsor(-1)) = y_pgsor(1) + pipxnc/400 + dpadj - d(log(pxp), 0, 1) 


@ %def pgsor

<<coefficient y{\_}pgsor>>=
y_pgsor	1	0.0
@ %def y_pgsor

\subsection[g.21 PHR]{g.21 PHR: Price index for residential investment, cw (relative to PXP)}

<<variable PHR>>=
PHR      = Price index for residential investment, cw (relative to PXP)                                  
@ %def PHR

<<equation phr>>=
phr: log(phr) - phr_aerr - log(phr(-1)) = y_phr(1) + pipxnc/400 + dpadj - d(log(pxp), 0, 1) 


@ %def phr

<<coefficient y{\_}phr>>=
y_phr	1	0.0
@ %def y_phr

\subsection[g.22 PPDR]{g.22 PPDR: Price level of EPD compared to PXP}

<<variable PPDR>>=
PPDR     = Price level of EPD compared to PXP                                                            
@ %def PPDR

<<equation ppdr>>=
ppdr: log(ppdr) - ppdr_aerr - log(ppdr(-1)) = y_ppdr(1) + pipxnc/400 + dpadj - d(log(pxp), 0, 1) 


@ %def ppdr

<<coefficient y{\_}ppdr>>=
y_ppdr	1	0.0
@ %def y_ppdr

\subsection[g.23 PPIR]{g.23 PPIR: Price level of EPI compared to PXP}

<<variable PPIR>>=
PPIR     = Price level of EPI compared to PXP                                                            
@ %def PPIR

<<equation ppir>>=
ppir: log(ppir) - ppir_aerr - log(ppir(-1))  = pipxnc/400 + dpadj - d(log(pxp), 0, 1) 


@ %def ppir

\subsection[g.24 PPSR]{g.24 PPSR: Price index for nonresidential structures, cw (relative to PXP)}

<<variable PPSR>>=
PPSR     = Price index for nonresidential structures, cw (relative to PXP)                               
@ %def PPSR

<<equation ppsr>>=
ppsr: log(ppsr) - ppsr_aerr - log(ppsr(-1)) = y_ppsr(1) + pipxnc/400 + dpadj - d(log(pxp), 0, 1) 


@ %def ppsr

<<coefficient y{\_}ppsr>>=
y_ppsr	1	0.0
@ %def y_ppsr

\subsection[g.25 PXR]{g.25 PXR: Price index for exports, cw (relative to PXP)}

<<variable PXR>>=
PXR      = Price index for exports, cw (relative to PXP)                                                 
@ %def PXR

<<equation pxr>>=
pxr: log(pxr) - pxr_aerr - log(pxr(-1)) = y_pxr(1) + pipxnc/400 + dpadj - d(log(pxp), 0, 1) 


@ %def pxr

<<coefficient y{\_}pxr>>=
y_pxr	1	0.0
@ %def y_pxr

\subsection[g.26 DPGAP]{g.26 DPGAP: Price inflation aggregation discrepancy}

<<variable DPGAP>>=
DPGAP    = Price inflation aggregation discrepancy                                                       
@ %def DPGAP

<<equation dpgap>>=
dpgap: dpgap - dpgap_aerr =  pipxnc/400 - ( _
       .5 * (ehn/(xpn - ecnian)+ ehn(-1)/(xpn(-1) - ecnian(-1))) _
               * d(log(phr*pxp), 0, 1) _
     + .5 * (epdn/(xpn - ecnian)+ epdn(-1)/(xpn(-1) - ecnian(-1))) _
               * d(log(ppdr*pxp), 0, 1) _
     + .5 * (epin/(xpn - ecnian)+ epin(-1)/(xpn(-1) - ecnian(-1))) _
               * d(log(ppir*pxp), 0, 1) _
     + .5 * (epsn/(xpn - ecnian)+ epsn(-1)/(xpn(-1) - ecnian(-1))) _
               * d(log(ppsr*pxp), 0, 1) _
     + .5 * (egfon/(xpn - ecnian)+ egfon(-1)/(xpn(-1) - ecnian(-1))) _
               * d(log(pgfor*pxp), 0, 1) _
     + .5 * (egfin/(xpn - ecnian)+ egfin(-1)/(xpn(-1) - ecnian(-1))) _
               * d(log(pgfir*pxp), 0, 1) _
     + .5 * (egson/(xpn - ecnian)+ egson(-1)/(xpn(-1) - ecnian(-1))) _
               * d(log(pgsor*pxp), 0, 1) _
     + .5 * (egsin/(xpn - ecnian)+ egsin(-1)/(xpn(-1) - ecnian(-1))) _
               * d(log(pgsir*pxp), 0, 1) _
     + .5 * (exn/(xpn - ecnian)+ exn(-1)/(xpn(-1) - ecnian(-1))) _
               * d(log(pxr*pxp), 0, 1)) 


@ %def dpgap

\subsection[g.27 DPADJ]{g.27 DPADJ: Price inflation aggregation adjustment}

<<variable DPADJ>>=
DPADJ    = Price inflation aggregation adjustment                                                        
@ %def DPADJ

<<equation dpadj>>=
dpadj: dpadj - dpadj_aerr - dpadj(-1) = y_dpadj(1) * dpgap(-1) 


@ %def dpadj

<<coefficient y{\_}dpadj>>=
y_dpadj	1	1.0000
@ %def y_dpadj

\subsection[g.28 PLMIN]{g.28 PLMIN: Minimum wage}

<<variable PLMIN>>=
PLMIN    = Minimum wage                                                                                  
@ %def PLMIN

<<equation plmin>>=
plmin: plmin - plmin_aerr = plminr*.01*pl 


@ %def plmin

\subsection[g.29 QPXNC]{g.29 QPXNC: Desired level of nonconsumption price}

<<variable QPXNC>>=
QPXNC    = Desired level of nonconsumption price                                                         
@ %def QPXNC

<<equation qpxnc>>=
qpxnc: log(qpxnc) - qpxnc_aerr = log(pxnc)  _
                        + y_qpxnc(1) * log(qpxp/pxp)  _
                        + y_qpxnc(2) * log(qpcnia/pcnia) 


@ %def qpxnc

<<coefficient y{\_}qpxnc>>=
y_qpxnc	2	2.98507462687,-1.98507462687
@ %def y_qpxnc

\subsection[g.30 UQPCT]{g.30 UQPCT: Stochastic component of trend ratio of PCNIA to PXP}

<<variable UQPCT>>=
UQPCT    = Stochastic component of trend ratio of PCNIA to PXP                                           
@ %def UQPCT

<<equation uqpct>>=
uqpct: log(uqpct) - uqpct_aerr = y_uqpct(1) + log(uqpct(-1)) + huqpct 


@ %def uqpct

<<coefficient y{\_}uqpct>>=
y_uqpct	1	0.0
@ %def y_uqpct

\subsection[g.31 HUQPCT]{g.31 HUQPCT: Drift term in stochastic component of trend ratio of PCNIA to PXP}

<<variable HUQPCT>>=
HUQPCT   = Drift term in stochastic component of trend ratio of PCNIA to PXP                             
@ %def HUQPCT

<<equation huqpct>>=
huqpct: huqpct - huqpct_aerr = y_huqpct(1) + y_huqpct(2)*huqpct(-1) 


@ %def huqpct

<<coefficient y{\_}huqpct>>=
y_huqpct	2	0.00,0.95
@ %def y_huqpct

\subsection[g.32 POILR]{g.32 POILR: Price of imported oil, relative to price index for bus. sector output}

<<variable POILR>>=
POILR    = Price of imported oil, relative to price index for bus. sector output                         
@ %def POILR

<<equation poilr>>=
poilr: d( log(poilr), 0, 1 ) - poilr_aerr _
                    = y_poilr(1) * log(poilr(-1)/poilrt(-1)) _
                    + y_poilr(2) _
                    + y_poilr(3) * d( log(poilr(-1)), 0, 1 ) _
                    + y_poilr(4) * d( log(poilrt), 0, 1 ) 


@ %def poilr

<<coefficient y{\_}poilr>>=
y_poilr	4	-0.2386347615324657,-0.003817963307816998,0.3988973185364578,0.2246596594065311
@ %def y_poilr

\subsection[g.33 PCXFE]{g.33 PCXFE: Price index for personal consumption expendits ex. food and energy, cw (NIPA definition)}

<<variable PCXFE>>=
PCXFE    = Price index for personal consumption expendits ex. food and energy, cw (NIPA definition)      
@ %def PCXFE

<<equation pcxfe>>=
pcxfe: d(log(pcxfe), 0, 1) - pcxfe_aerr = picxfe/400 


@ %def pcxfe

\subsection[g.34 POIL]{g.34 POIL: Price of imported oil (\$ per barrel)}

<<variable POIL>>=
POIL     = Price of imported oil ($ per barrel)                                                          
@ %def POIL

<<equation poil>>=
poil: poil - poil_aerr = poilr*pxb 


@ %def poil

\subsection[g.35 PMP]{g.35 PMP: Price index for petroleum imports}

<<variable PMP>>=
PMP      = Price index for petroleum imports                                                             
@ %def PMP

<<equation pmp>>=
pmp: pmp - pmp_aerr = upmp*poil 


@ %def pmp

\subsection[g.36 PCENGR]{g.36 PCENGR: Price index for aggregate energy consumption (relative to PXB  )}

<<variable PCENGR>>=
PCENGR   = Price index for aggregate energy consumption (relative to PXB  )                              
@ %def PCENGR

<<equation pcengr>>=
pcengr: d( log(pcengr), 0, 1 ) - pcengr_aerr _
                     = y_pcengr(1) _
                     + y_pcengr(2) * d( log(pcengr(-1)), 0, 1 ) _
                     + y_pcengr(3) * log(pcengr(-1)) _
                     + y_pcengr(4) * log(poilr(-1)) _
                     + y_pcengr(5) * d( log(poilr), 0, 1 ) 


@ %def pcengr

<<coefficient y{\_}pcengr>>=
y_pcengr	5	0.04621048926220116,-0.01053548206463643,-0.09617350148754544,0.08213727439049966,0.797627837318598
@ %def y_pcengr

\subsection[g.37 PCENG]{g.37 PCENG: Price index for aggregate energy consumption}

<<variable PCENG>>=
PCENG    = Price index for aggregate energy consumption                                                  
@ %def PCENG

<<equation pceng>>=
pceng: pceng - pceng_aerr = pcengr*pxb 


@ %def pceng

\subsection[g.38 PCER]{g.38 PCER: Price index for personal consumption expenditures on energy (relative to PCXFE)}

<<variable PCER>>=
PCER     = Price index for personal consumption expenditures on energy (relative to PCXFE)               
@ %def PCER

<<equation pcer>>=
pcer: d( log(pcer), 0, 1 ) - pcer_aerr _
                   = y_pcer(1) * log((y_pcer(2) *pceng(-1) + (1-y_pcer(2))*pcxfe(-1))/(pcer(-1)*pcxfe(-1))) _
                   + y_pcer(3) * d( log((y_pcer(2) *pceng + (1-y_pcer(2))*pcxfe)/pcxfe), 0, 1 ) _
                   + y_pcer(4) * d( log((y_pcer(2) *pceng(-1) + (1-y_pcer(2))*pcxfe(-1))/pcxfe(-1)), 0, 1 ) 


@ %def pcer

<<coefficient y{\_}pcer>>=
y_pcer	4	0.1050137345817281,0.5632388610140522,0.6858569548199248,0.04030768373454912
@ %def y_pcer

\subsection[g.39 PCFR]{g.39 PCFR: Price index for personal consumption expenditures on food (relative to PCXFE)}

<<variable PCFR>>=
PCFR     = Price index for personal consumption expenditures on food (relative to PCXFE)                 
@ %def PCFR

<<equation pcfr>>=
pcfr: d( log(pcfr), 0, 1 ) - pcfr_aerr _
                   = y_pcfr(1) * log(pcfr(-1)/pcfrt(-1)) _
                   + y_pcfr(2) _
                   +  ( y_pcfr(3) *  d( log(pcfr(-1)), 0, 1 ) +  y_pcfr(4) *  d( log(pcfr(-2)), 0, 1 ) +  y_pcfr(5) *  d( log(pcfr(-3)), 0, 1 ))  _
                   + y_pcfr(6) * d( log(pcfrt), 0, 1 ) 


@ %def pcfr

<<coefficient y{\_}pcfr>>=
y_pcfr	6	-0.1757649679968763,-7.899990101672884e-05,0.3777936884215714,0.02349292212946189,0.3412567511960338,0.3241078150502943
@ %def y_pcfr

\subsection[g.40 UCES]{g.40 UCES: Energy share of nominal consumption expenditures}

<<variable UCES>>=
UCES     = Energy share of nominal consumption expenditures                                              
@ %def UCES

<<equation uces>>=
uces: d( log(uces), 0, 1 ) - uces_aerr _
                   = y_uces(1) * log(uces(-1)) _
                   + y_uces(2) * log(pcer(-1)) _
                   + y_uces(3) * log(ceng(-1)/xg(-1)) _
                   + y_uces(4) * t47 _
                   + y_uces(5) _
                   + y_uces(6) * d( log(uces(-1)), 0, 1 ) _
                   + y_uces(7) * d( log(pcer), 0, 1 ) _
                   + y_uces(8) * d( log(ceng/xg), 0, 1 ) 


@ %def uces

<<coefficient y{\_}uces>>=
y_uces	8	-0.1834529206587357,0.1554187181683198,0.08000391518229149,-0.0004411984448821991,-0.2022862383652329,-0.06453882715112344,0.8073240974028284,0.176436316477632
@ %def y_uces

\subsection[g.41 UCFS]{g.41 UCFS: Food share of nominal consumption expenditures}

<<variable UCFS>>=
UCFS     = Food share of nominal consumption expenditures                                                
@ %def UCFS

<<equation ucfs>>=
ucfs: d( log(ucfs), 0, 1 ) - ucfs_aerr  _
                   = y_ucfs(1) * log(ucfs(-1)) _
                   + y_ucfs(2) * log(pcfr(-1)) _
                   + y_ucfs(3) * t47 _
                   + y_ucfs(4) _
                   + y_ucfs(5) * d( log(ucfs(-1)), 0, 1 ) _
                   + y_ucfs(6) * d( log(pcfrt), 0, 1 ) _
                   + y_ucfs(7) * d( log(pcfr/pcfrt), 0, 1 ) 


@ %def ucfs

<<coefficient y{\_}ucfs>>=
y_ucfs	7	-0.03523462021069426,0.0453107908363,-0.0001497160154925362,-0.05646004352160842,0.002460722756466915,0.997409811313602,0.3352207056659912
@ %def y_ucfs

\subsection[g.42 PMO]{g.42 PMO: Price index for imports ex. petroleum, cw}

<<variable PMO>>=
PMO      = Price index for imports ex. petroleum, cw                                                     
@ %def PMO

<<equation pmo>>=
pmo: d( log(pmo), 0, 1 ) - pmo_aerr = y_pmo(1) _
                  + y_pmo(2) * (log(qpmo) + .64*log(fpcm(-1)/fpxm(-1)) + .36*log(pxb(-1)) _
                           - log(pmo(-1))) _
                  + y_pmo(3) * d( log(fpcm/fpxm), 0, 1 ) _
                  + y_pmo(4) * d( log(pxb), 0, 1 ) 


@ %def pmo

<<coefficient y{\_}pmo>>=
y_pmo	4	-0.003166815111887241,0.4492916534287926,0.2944651755345454,0.7055348244654546
@ %def y_pmo

\subsection[g.43 QPMO]{g.43 QPMO: Random walk component of non-oil import prices}

<<variable QPMO>>=
QPMO     = Random walk component of non-oil import prices                                                
@ %def QPMO

<<equation qpmo>>=
qpmo: log(qpmo) - qpmo_aerr = log(qpmo(-1)) + y_qpmo(1) 


@ %def qpmo

<<coefficient y{\_}qpmo>>=
y_qpmo	1	-.003347
@ %def y_qpmo

\subsection[g.44 PGDP]{g.44 PGDP: Price index for GDP, cw}

<<variable PGDP>>=
PGDP     = Price index for GDP, cw                                                                       
@ %def PGDP

<<equation pgdp>>=
pgdp: pgdp - pgdp_aerr = 100*xgdpn/xgdp 


@ %def pgdp

\subsection[g.45 PGFL]{g.45 PGFL: Price index for federal government employee compensation, cw}

<<variable PGFL>>=
PGFL     = Price index for federal government employee compensation, cw                                  
@ %def PGFL

<<equation pgfl>>=
pgfl: d( log(pgfl), 0, 1 ) - pgfl_aerr = d( log(upgfl), 0, 1 )  _
                        + d( log(pl), 0, 1 )  _
                  - dglprd*(d( log(lprdt), 0, 1 )) 


@ %def pgfl

\subsection[g.46 PGSL]{g.46 PGSL: Price index for S\&L government employee compensation, cw}

<<variable PGSL>>=
PGSL     = Price index for S&L government employee compensation, cw                                      
@ %def PGSL

<<equation pgsl>>=
pgsl: d( log(pgsl), 0, 1 ) - pgsl_aerr = d( log(upgsl), 0, 1 )  _
                        + d( log(pl), 0, 1 )  _
                  - dglprd*(d( log(lprdt), 0, 1 )) 


@ %def pgsl

\subsection[g.47 PKPDR]{g.47 PKPDR: Ratio of price of equipment stock (KPD) to PXP}

<<variable PKPDR>>=
PKPDR    = Ratio of price of equipment stock (KPD) to PXP                                                
@ %def PKPDR

<<equation pkpdr>>=
pkpdr: pkpdr - pkpdr_aerr = upkpd * ppdr 


@ %def pkpdr

\subsection[g.48 PXG]{g.48 PXG: Price index for  business output plus oil imports}

<<variable PXG>>=
PXG      = Price index for  business output plus oil imports                                             
@ %def PXG

<<equation pxg>>=
pxg: pxg - pxg_aerr = 100*xgn/xg 


@ %def pxg

\subsection[g.49 PXB]{g.49 PXB: Price index for business sector output}

<<variable PXB>>=
PXB      = Price index for NFB output                                                                    
@ %def PXB

<<equation pxb>>=
pxb: pxb - pxb_aerr = upxb*pgdp 


@ %def pxb

\subsection[g.50 HGPDR]{g.50 HGPDR: Trend Price Growth of PPDR}

<<variable HGPDR>>=
HGPDR    = Trend Price Growth of PPDR                                                                    
@ %def HGPDR

<<equation hgpdr>>=
hgpdr: hgpdr - hgpdr_aerr = y_hgpdr(1) * hgpdr(-1) _
                     + y_hgpdr(2) * 400*log(ppdr/ppdr(-1)) 


@ %def hgpdr

<<coefficient y{\_}hgpdr>>=
y_hgpdr	2	.9,.1
@ %def y_hgpdr

\subsection[g.51 HGPIR]{g.51 HGPIR: Trend Price Growth of PPIR}

<<variable HGPIR>>=
HGPIR    = Trend Price Growth of PPIR                                                                    
@ %def HGPIR

<<equation hgpir>>=
hgpir: hgpir - hgpir_aerr = y_hgpir(1) * hgpir(-1) _
                     + y_hgpir(2) * 400*log(ppir/ppir(-1)) 


@ %def hgpir

<<coefficient y{\_}hgpir>>=
y_hgpir	2	.9,.1
@ %def y_hgpir

\subsection[g.52 HGPKIR]{g.52 HGPKIR: Trend growth rate of PKIR}

<<variable HGPKIR>>=
HGPKIR   = Trend growth rate of PKIR                                                                     
@ %def HGPKIR

<<equation hgpkir>>=
hgpkir: hgpkir - hgpkir_aerr = y_hgpkir(1) * hgpkir(-1) _
                     + y_hgpkir(2) * 400*log(pkir/pkir(-1)) 


@ %def hgpkir

<<coefficient y{\_}hgpkir>>=
y_hgpkir	2	.9,.1
@ %def y_hgpkir

\subsection[g.53 HGPPSR]{g.53 HGPPSR: Trend growth rate of PPSR}

<<variable HGPPSR>>=
HGPPSR   = Trend growth rate of PPSR                                                                     
@ %def HGPPSR

<<equation hgppsr>>=
hgppsr: hgppsr - hgppsr_aerr = y_hgppsr(1) * hgppsr(-1) _
                     + y_hgppsr(2) * 400*log(ppsr/ppsr(-1)) 


@ %def hgppsr

<<coefficient y{\_}hgppsr>>=
y_hgppsr	2	.9,.1
@ %def y_hgppsr

\subsection[g.54 PICNGR]{g.54 PICNGR: Weighted growth rate of relative energy price}

<<variable PICNGR>>=
PICNGR   = Weighted growth rate of relative energy price                                                 
@ %def PICNGR

<<equation picngr>>=
picngr: picngr - picngr_aerr = (d( log(pceng/pxp(-1)), 0, 1 ) *  _
                        ( pceng*ceng/(pxp*xp) +  pceng(-1)*ceng(-1)/(pxp(-1)*xp(-1)))  / 2 ) 


@ %def picngr

\subsection[g.55 PIGDP]{g.55 PIGDP: Inflation rate, GDP, cw}

<<variable PIGDP>>=
PIGDP    = Inflation rate, GDP, cw                                                                       
@ %def PIGDP

<<equation pigdp>>=
pigdp: pigdp - pigdp_aerr = 400*d( log(pgdp), 0, 1 ) 


@ %def pigdp

\subsection[g.56 PCOR]{g.56 PCOR: Price index for non-durable goods and non-housing services, cw (relative to to PCNIA)}

<<variable PCOR>>=
PCOR     = Price index for non-durable goods and non-housing services, cw (relative to to PCNIA)         
@ %def PCOR

<<equation pcor>>=
pcor: log(pcor) - log(pcor(-1)) - pcor_aerr =   _
           (- .5 * .01 * (pcdr*pcnia*ecd/ecnian  _
         + pcdr(-1)*pcnia(-1)*ecd(-1)/ecnian(-1)))  _
         / (.5 * .01 * (pcor*pcnia*eco/ecnian  _
         + pcor(-1)*pcnia(-1)*eco(-1)/ecnian(-1))) _
           * d(log(pcdr), 0, 1) _
    - .5 * .01 * (pchr*pcnia*ech/ecnian  _
         + pchr(-1)*pcnia(-1)*ech(-1)/ecnian(-1))  _
           * d(log(pchr), 0, 1) _
    / (.5 * .01 * (pcor*pcnia*eco/ecnian  _
         + pcor(-1)*pcnia(-1)*eco(-1)/ecnian(-1))) 


@ %def pcor

\subsection[g.57 PCHR]{g.57 PCHR: Price index for housing services, cw (relative to to PCNIA)}

<<variable PCHR>>=
PCHR     = Price index for housing services, cw (relative to to PCNIA)                                   
@ %def PCHR

<<equation pchr>>=
pchr: d(log(pchr), 0, 1) - pchr_aerr = y_pchr(1) _
                             + y_pchr(2)*d(log(pchr(-1)), 0, 1) 


@ %def pchr

<<coefficient y{\_}pchr>>=
y_pchr	2	0.0005315862255843622,0.5948038682986249
@ %def y_pchr

\subsection[g.58 PICX4]{g.58 PICX4: Four-quarter percent change core in PCE prices}

<<variable PICX4>>=
PICX4    = Four-quarter percent change core in PCE prices                                                
@ %def PICX4

<<equation picx4>>=
picx4:             picx4 - picx4_aerr = 100*(pcxfe/pcxfe(-4) - 1) 


@ %def picx4

\subsection[g.59 PCDR]{g.59 PCDR: Price index for consumer durables, cw (relative to to PCNIA)}

<<variable PCDR>>=
PCDR     = Price index for consumer durables, cw (relative to to PCNIA)                                  
@ %def PCDR

<<equation pcdr>>=
pcdr: d(log(pcdr), 0, 1) - pcdr_aerr = y_pcdr(1) _
                             + y_pcdr(2)*d(log(pcdr(-1)), 0, 1) 


@ %def pcdr

<<coefficient y{\_}pcdr>>=
y_pcdr	2	-0.003205436686618677,0.5065758198036935
@ %def y_pcdr

\subsection[g.60 PIC4]{g.60 PIC4: Four-quarter percent change in PCE prices}

<<variable PIC4>>=
PIC4     = Four-quarter percent change in PCE prices                                                     
@ %def PIC4

<<equation pic4>>=
pic4:             pic4 - pic4_aerr = 100*(pcnia/pcnia(-4) - 1) 


@ %def pic4


\section{Government}

\subsection[h.1 EGF]{h.1 EGF: Federal government consumption and gross investment, cw 2009\$}

<<variable EGF>>=
EGF      = Federal government consumption and gross investment, cw 2009$                                 
@ %def EGF

<<equation egf>>=
egf: log(egf) - egf_aerr = log(egf(-1)) _
     + .5 * (egfon/egfn + egfon(-1)/egfn(-1)) * d(log(egfo), 0, 1) _
     + .5 * (egfin/egfn + egfin(-1)/egfn(-1)) * d(log(egfi), 0, 1) _
     + .5 * (egfln/egfn + egfln(-1)/egfn(-1)) * d(log(egfl), 0, 1) 


@ %def egf

\subsection[h.2 EGFN]{h.2 EGFN: Federal government consumption and gross investment, current \$}

<<variable EGFN>>=
EGFN     = Federal government consumption and gross investment, current $                                
@ %def EGFN

<<equation egfn>>=
egfn: egfn - egfn_aerr = egfln + egfin + egfon 


@ %def egfn

\subsection[h.3 EGFI]{h.3 EGFI: Federal government gross investment, cw 2009\$}

<<variable EGFI>>=
EGFI     = Federal government gross investment, cw 2009$                                                 
@ %def EGFI

<<equation egfi>>=
egfi: d( log(egfi), 0, 1 ) - egfi_aerr  _
                   = y_egfi(1) _
                   + y_egfi(2) * log(egfi(-1)/egfit(-1)) _
                   +  ( y_egfi(3) *  d( log(egfi(-1)), 0, 1 ) +  y_egfi(4) *  d( log(egfi(-2)), 0, 1 ))  _
                   + y_egfi(5) * d( log(egfit), 0, 1 ) _
                   +  ( y_egfi(6) *  xgap2 +  y_egfi(7) *  xgap2(-1))  


@ %def egfi

<<coefficient y{\_}egfi>>=
y_egfi	7	-0.001620944144695763,-0.1243761665741676,-0.1946254304372423,-0.1028111402377485,1.560428852418556,0.002544852561541834,-0.002297865365889053
@ %def y_egfi

\subsection[h.4 EGFIN]{h.4 EGFIN: Federal government gross investment, current \$}

<<variable EGFIN>>=
EGFIN    = Federal government gross investment, current $                                                
@ %def EGFIN

<<equation egfin>>=
egfin: egfin - egfin_aerr = .01 * pxp * pgfir * egfi 


@ %def egfin

\subsection[h.5 EGFIT]{h.5 EGFIT: Federal government gross investment, cw 2009\$, trend}

<<variable EGFIT>>=
EGFIT    = Federal government gross investment, cw 2009$, trend                                          
@ %def EGFIT

<<equation egfit>>=
egfit: d( log(egfit), 0, 1 ) - egfit_aerr  _
                    = y_egfit(1) _
                    + y_egfit(2) * log(.01*pgfir(-1)*pxp(-1)*egfit(-1)/xgdptn(-1)) _
                    + y_egfit(3) * (hggdpt+hggdpt(-1)+hggdpt(-2)+hggdpt(-3)) / 1600 


@ %def egfit

<<coefficient y{\_}egfit>>=
y_egfit	3	-.4027,-.1,1.0
@ %def y_egfit

\subsection[h.6 EGFL]{h.6 EGFL: Federal government employee compensation, cw 2009\$}

<<variable EGFL>>=
EGFL     = Federal government employee compensation, cw 2009$                                            
@ %def EGFL

<<equation egfl>>=
egfl: d( log(egfl), 0, 1 ) - egfl_aerr  _
                   = y_egfl(1) _
                   + y_egfl(2) * log(egfl(-1)/egflt(-1)) _
                   +  ( y_egfl(3) *  d( log(egfl(-1)), 0, 1 ) +  y_egfl(4) *  d( log(egfl(-2)), 0, 1 ))  _
                   + y_egfl(5) * d( log(egflt), 0, 1 ) _
                   +  ( y_egfl(6) *  xgap2 +  y_egfl(7) *  xgap2(-1))  


@ %def egfl

<<coefficient y{\_}egfl>>=
y_egfl	7	-6.057249900438316e-05,-0.06931736294593471,0.3048866347485139,-0.04971735124104322,1.062115221072238,-0.002639817782074764,0.002667547414047634
@ %def y_egfl

\subsection[h.7 EGFLN]{h.7 EGFLN: Federal government employee compensation, current \$}

<<variable EGFLN>>=
EGFLN    = Federal government employee compensation, current $                                           
@ %def EGFLN

<<equation egfln>>=
egfln: egfln - egfln_aerr = .01 * pgfl * egfl 


@ %def egfln

\subsection[h.8 EGFLT]{h.8 EGFLT: Federal government employee compensation, cw 2009\$, trend}

<<variable EGFLT>>=
EGFLT    = Federal government employee compensation, cw 2009$, trend                                     
@ %def EGFLT

<<equation egflt>>=
egflt: d( log(egflt), 0, 1 ) - egflt_aerr  _
                    = y_egflt(1) _
                    + y_egflt(2) * log(.01*pgfl(-1)*egflt(-1)/xgdptn(-1)) _
                    + y_egflt(3) * (hggdpt+hggdpt(-1)+hggdpt(-2)+hggdpt(-3)) / 1600 


@ %def egflt

<<coefficient y{\_}egflt>>=
y_egflt	3	-.375978,-.1,1.0
@ %def y_egflt

\subsection[h.9 EGFO]{h.9 EGFO: Federal government consumption ex. employee comp., cw 2009\$}

<<variable EGFO>>=
EGFO     = Federal government consumption ex. employee comp., cw 2009$                                   
@ %def EGFO

<<equation egfo>>=
egfo: d( log(egfo), 0, 1 ) - egfo_aerr _
                   = y_egfo(1) _
                   + y_egfo(2) * log(egfo(-1)/egfot(-1)) _
                   +  ( y_egfo(3) *  d( log(egfo(-1)), 0, 1 ) +  y_egfo(4) *  d( log(egfo(-2)), 0, 1 ))  _
                   + y_egfo(5) * d( log(egfot), 0, 1 ) _
                   +  ( y_egfo(6) *  xgap2 +  y_egfo(7) *  xgap2(-1))  


@ %def egfo

<<coefficient y{\_}egfo>>=
y_egfo	7	-0.00272437480660757,-0.165188738562342,-0.2655033775214354,-0.1381332991300448,1.894051710648925,-0.00465994369973658,0.004251675291831084
@ %def y_egfo

\subsection[h.10 EGFON]{h.10 EGFON: Federal government consumption ex. employee comp., current \$}

<<variable EGFON>>=
EGFON    = Federal government consumption ex. employee comp., current $                                  
@ %def EGFON

<<equation egfon>>=
egfon: egfon - egfon_aerr = .01 * pxp * pgfor * egfo 


@ %def egfon

\subsection[h.11 EGFOT]{h.11 EGFOT: Federal government consumption ex. employee comp., cw 2009\$, trend}

<<variable EGFOT>>=
EGFOT    = Federal government consumption ex. employee comp., cw 2009$, trend                            
@ %def EGFOT

<<equation egfot>>=
egfot: d( log(egfot), 0, 1 ) - egfot_aerr  _
                    = y_egfot(1) _
                    + y_egfot(2) * log(.01*pgfor(-1)*pxp(-1)*egfot(-1)/xgdptn(-1)) _
                    + y_egfot(3) * (hggdpt+hggdpt(-1)+hggdpt(-2)+hggdpt(-3)) / 1600 


@ %def egfot

<<coefficient y{\_}egfot>>=
y_egfot	3	-.342813,-.1,1.0
@ %def y_egfot

\subsection[h.12 EGS]{h.12 EGS: S\&L government consumption and gross investment, cw 2009\$}

<<variable EGS>>=
EGS      = S&L government consumption and gross investment, cw 2009$                                     
@ %def EGS

<<equation egs>>=
egs: log(egs) - egs_aerr = log(egs(-1)) _
     + .5 * (egson/egsn + egson(-1)/egsn(-1)) * d(log(egso), 0, 1) _
     + .5 * (egsin/egsn + egsin(-1)/egsn(-1)) * d(log(egsi), 0, 1) _
     + .5 * (egsln/egsn + egsln(-1)/egsn(-1)) * d(log(egsl), 0, 1) 


@ %def egs

\subsection[h.13 EGSN]{h.13 EGSN: S\&L government consumption and gross investment, current \$}

<<variable EGSN>>=
EGSN     = S&L government consumption and gross investment, current $                                    
@ %def EGSN

<<equation egsn>>=
egsn: egsn - egsn_aerr = egsln + egsin + egson 


@ %def egsn

\subsection[h.14 EGSI]{h.14 EGSI: S\&L government gross investment, cw 2009\$}

<<variable EGSI>>=
EGSI     = S&L government gross investment, cw 2009$                                                     
@ %def EGSI

<<equation egsi>>=
egsi: d( log(egsi), 0, 1 ) - egsi_aerr _
                   = y_egsi(1) _
                   + y_egsi(2) * log(egsi(-1)/egsit(-1)) _
                   +  ( y_egsi(3) *  d( log(egsi(-1)), 0, 1 ) +  y_egsi(4) *  d( log(egsi(-2)), 0, 1 ))  _
                   + y_egsi(5) * d( log(egsit), 0, 1 ) _
                   +  ( y_egsi(6) *  xgap2 +  y_egsi(7) *  xgap2(-1))  


@ %def egsi

<<coefficient y{\_}egsi>>=
y_egsi	7	-1.405740361028989e-05,-0.2020609033108234,0.05134522874864941,-0.0802709528945283,1.120067667801115,0.004461484133438011,-0.003094150933137312
@ %def y_egsi

\subsection[h.15 EGSIN]{h.15 EGSIN: S\&L government gross investment, current \$}

<<variable EGSIN>>=
EGSIN    = S&L government gross investment, current $                                                    
@ %def EGSIN

<<equation egsin>>=
egsin: egsin - egsin_aerr = .01 * pxp * pgsir * egsi 


@ %def egsin

\subsection[h.16 EGSIT]{h.16 EGSIT: S\&L government gross investment, cw 2009\$, trend}

<<variable EGSIT>>=
EGSIT    = S&L government gross investment, cw 2009$, trend                                              
@ %def EGSIT

<<equation egsit>>=
egsit: d( log(egsit), 0, 1 ) - egsit_aerr  _
                    = y_egsit(1) _
                    + y_egsit(2) * log(.01*pgsir(-1)*pxp(-1)*egsit(-1)/xgdptn(-1)) _
                    + y_egsit(3) * (hggdpt+hggdpt(-1)+hggdpt(-2)+hggdpt(-3)) / 1600 


@ %def egsit

<<coefficient y{\_}egsit>>=
y_egsit	3	-.379944,-.1,1.0
@ %def y_egsit

\subsection[h.17 EGSL]{h.17 EGSL: S\&L government employee compensation, cw 2009\$}

<<variable EGSL>>=
EGSL     = S&L government employee compensation, cw 2009$                                                
@ %def EGSL

<<equation egsl>>=
egsl: d( log(egsl), 0, 1 ) - egsl_aerr _
                   = y_egsl(1) _
                   + y_egsl(2) * log(egsl(-1)/egslt(-1)) _
                   +  ( y_egsl(3) *  d( log(egsl(-1)), 0, 1 ) +  y_egsl(4) *  d( log(egsl(-2)), 0, 1 ))  _
                   + y_egsl(5) * d( log(egslt), 0, 1 ) _
                   +  ( y_egsl(6) *  xgap2 +  y_egsl(7) *  xgap2(-1))  


@ %def egsl

<<coefficient y{\_}egsl>>=
y_egsl	7	0.000432632357275569,-0.1411968485071547,0.173955823870621,0.03758904468718688,0.6916403113884035,-0.001559901737432915,0.001832485913741557
@ %def y_egsl

\subsection[h.18 EGSLN]{h.18 EGSLN: S\&L government employee compensation, current \$}

<<variable EGSLN>>=
EGSLN    = S&L government employee compensation, current $                                               
@ %def EGSLN

<<equation egsln>>=
egsln: egsln - egsln_aerr = .01 * pgsl * egsl 


@ %def egsln

\subsection[h.19 EGSLT]{h.19 EGSLT: S\&L government employee compensation, cw 2009\$, trend}

<<variable EGSLT>>=
EGSLT    = S&L government employee compensation, cw 2009$, trend                                         
@ %def EGSLT

<<equation egslt>>=
egslt: d( log(egslt), 0, 1 ) - egslt_aerr  _
                    = y_egslt(1) _
                    + y_egslt(2) * log(.01*pgsl(-1)*egslt(-1)/xgdptn(-1)) _
                    + y_egslt(3) * (hggdpt+hggdpt(-1)+hggdpt(-2)+hggdpt(-3)) / 1600 


@ %def egslt

<<coefficient y{\_}egslt>>=
y_egslt	3	-.259779,-.1,1.0
@ %def y_egslt

\subsection[h.20 EGSO]{h.20 EGSO: S\&L government consumption ex. employee comp., cw 2009\$}

<<variable EGSO>>=
EGSO     = S&L government consumption ex. employee comp., cw 2009$                                       
@ %def EGSO

<<equation egso>>=
egso: d( log(egso), 0, 1 ) - egso_aerr _
                   = y_egso(1) _
                   + y_egso(2) * log(egso(-1)/egsot(-1)) _
                   +  ( y_egso(3) *  d( log(egso(-1)), 0, 1 ) +  y_egso(4) *  d( log(egso(-2)), 0, 1 ))  _
                   + y_egso(5) * d( log(egsot), 0, 1 ) _
                   +  ( y_egso(6) *  xgap2 +  y_egso(7) *  xgap2(-1))  


@ %def egso

<<coefficient y{\_}egso>>=
y_egso	7	-0.0002007505801469657,-0.09372198933526569,0.5475507872556951,0.1640544466868082,0.2738406118398889,-0.00239077240189727,0.002397454574046775
@ %def y_egso

\subsection[h.21 EGSON]{h.21 EGSON: S\&L government consumption ex. employee comp., current \$}

<<variable EGSON>>=
EGSON    = S&L government consumption ex. employee comp., current $                                      
@ %def EGSON

<<equation egson>>=
egson: egson - egson_aerr = .01 * pxp * pgsor * egso 


@ %def egson

\subsection[h.22 EGSOT]{h.22 EGSOT: S\&L government consumption ex. employee comp., cw 2009\$, trend}

<<variable EGSOT>>=
EGSOT    = S&L government consumption ex. employee comp., cw 2009$, trend                                
@ %def EGSOT

<<equation egsot>>=
egsot: d( log(egsot), 0, 1 ) - egsot_aerr  _
                    = y_egsot(1) _
                    + y_egsot(2) * log(.01*pgsor(-1)*pxp(-1)*egsot(-1)/xgdptn(-1)) _
                    + y_egsot(3) * (hggdpt+hggdpt(-1)+hggdpt(-2)+hggdpt(-3)) / 1600 


@ %def egsot

<<coefficient y{\_}egsot>>=
y_egsot	3	-.382643,-.1,1.0
@ %def y_egsot

\subsection[h.23 GFDBTN]{h.23 GFDBTN: Federal government debt stock, current \$}

<<variable GFDBTN>>=
GFDBTN   = Federal government debt stock, current $                                                      
@ %def GFDBTN

<<equation gfdbtn>>=
gfdbtn: gfdbtn - gfdbtn_aerr = ugfdbt*(gfdbtn(-1) - .25*gfsrpn + .25*egfin _
                              - .25*jygfgn - .25*jygfen) 


@ %def gfdbtn

\subsection[h.24 GFINTN]{h.24 GFINTN: Federal government net interest payments, current \$}

<<variable GFINTN>>=
GFINTN   = Federal government net interest payments, current $                                           
@ %def GFINTN

<<equation gfintn>>=
gfintn: gfintn - gfintn_aerr = rgfint*gfdbtn(-1) 


@ %def gfintn

\subsection[h.25 GFS]{h.25 GFS: Federal government grants-in-aid to S\&L government, deflated by PGDP}

<<variable GFS>>=
GFS      = Federal government grants-in-aid to S&L government, deflated by PGDP                          
@ %def GFS

<<equation gfs>>=
gfs: d( log(gfs), 0, 1 ) - gfs_aerr  _
                  = y_gfs(1) _
                  + y_gfs(2) * log(gfsn(-1)/xgdptn(-1)) _
                  + y_gfs(3) * (hggdpt+hggdpt(-1)+hggdpt(-2)+hggdpt(-3)) / 1600 


@ %def gfs

<<coefficient y{\_}gfs>>=
y_gfs	3	-.361185,-.1,1.0
@ %def y_gfs

\subsection[h.26 GFSN]{h.26 GFSN: Federal government grants-in-aid to S\&L government, current \$}

<<variable GFSN>>=
GFSN     = Federal government grants-in-aid to S&L government, current $                                 
@ %def GFSN

<<equation gfsn>>=
gfsn: gfsn - gfsn_aerr = .01*pgdp*gfs 


@ %def gfsn

\subsection[h.27 GFSRPN]{h.27 GFSRPN: Federal government budget surplus, current \$}

<<variable GFSRPN>>=
GFSRPN   = Federal government budget surplus, current $                                                  
@ %def GFSRPN

<<equation gfsrpn>>=
gfsrpn: gfsrpn - gfsrpn_aerr = tfpn + tfcin + tfibn + tfsin + tfdiv _
                   - egfln - egfon - gftn - gfintn _
                   - gfsubn - gfsn 


@ %def gfsrpn

\subsection[h.28 GFSUB]{h.28 GFSUB: Federal government subsidies less surplus, deflated by PGDP}

<<variable GFSUB>>=
GFSUB    = Federal government subsidies less surplus, deflated by PGDP                                   
@ %def GFSUB

<<equation gfsub>>=
gfsub: d( log(gfsub), 0, 1 ) - gfsub_aerr  _
                    = y_gfsub(1) _
                    + y_gfsub(2) * log(gfsubn(-1)/xgdptn(-1)) _
                    + y_gfsub(3) * (hggdpt+hggdpt(-1)+hggdpt(-2)+hggdpt(-3)) / 1600 


@ %def gfsub

<<coefficient y{\_}gfsub>>=
y_gfsub	3	-.550087,-.1,1.0
@ %def y_gfsub

\subsection[h.29 GFSUBN]{h.29 GFSUBN: Federal government subsidies less surplus, current \$}

<<variable GFSUBN>>=
GFSUBN   = Federal government subsidies less surplus, current $                                          
@ %def GFSUBN

<<equation gfsubn>>=
gfsubn: gfsubn - gfsubn_aerr = .01*pgdp*gfsub 


@ %def gfsubn

\subsection[h.30 GFT]{h.30 GFT: Federal government net transfer payments, deflated by PGDP}

<<variable GFT>>=
GFT      = Federal government net transfer payments, deflated by PGDP                                    
@ %def GFT

<<equation gft>>=
gft: gft - gft_aerr = (gftrd+gftrt)*xgdpt 


@ %def gft

\subsection[h.31 GFTN]{h.31 GFTN: Federal government net transfer payments, current \$}

<<variable GFTN>>=
GFTN     = Federal government net transfer payments, current $                                           
@ %def GFTN

<<equation gftn>>=
gftn: gftn - gftn_aerr = .01*pgdp*gft 


@ %def gftn

\subsection[h.32 GFTRD]{h.32 GFTRD: Deviation of ratio of federal transfers to GDP from trend ratio}

<<variable GFTRD>>=
GFTRD    = Deviation of ratio of federal transfers to GDP from trend ratio                               
@ %def GFTRD

<<equation gftrd>>=
gftrd: gftrd - gftrd_aerr = y_gftrd(1) _
                   + y_gftrd(2) * gftrd(-1) _
                   + y_gftrd(3) * xgap2 


@ %def gftrd

<<coefficient y{\_}gftrd>>=
y_gftrd	3	-3.598159243340642e-05,0.6589196196672864,-0.0002408286743628969
@ %def y_gftrd

\subsection[h.33 GSDBTN]{h.33 GSDBTN: S\&L government debt stock, current \$}

<<variable GSDBTN>>=
GSDBTN   = S&L government debt stock, current $                                                          
@ %def GSDBTN

<<equation gsdbtn>>=
gsdbtn: gsdbtn - gsdbtn_aerr = ugsdbt*(gsdbtn(-1) - .25*gssrpn + .25 * egsin _
                              - .25*jygsgn - .25*jygsen) 


@ %def gsdbtn

\subsection[h.34 GSINTN]{h.34 GSINTN: S\&L government net interest payments, current \$}

<<variable GSINTN>>=
GSINTN   = S&L government net interest payments, current $                                               
@ %def GSINTN

<<equation gsintn>>=
gsintn: gsintn - gsintn_aerr = rgfint*gsdbtn(-1) + ugsint*xbn 


@ %def gsintn

\subsection[h.35 GSSRPN]{h.35 GSSRPN: S\&L government budget surplus, current \$}

<<variable GSSRPN>>=
GSSRPN   = S&L government budget surplus, current $                                                      
@ %def GSSRPN

<<equation gssrpn>>=
gssrpn: gssrpn - gssrpn_aerr = tspn + tscin + tsibn + tssin + gfsn  _
                     - egsln - egson - gstn - gsintn - gssubn 


@ %def gssrpn

\subsection[h.36 GSSUBN]{h.36 GSSUBN: S\&L government subsidies less surplus, current \$}

<<variable GSSUBN>>=
GSSUBN   = S&L government subsidies less surplus, current $                                              
@ %def GSSUBN

<<equation gssubn>>=
gssubn: gssubn - gssubn_aerr = .01*pgdp*gssub 


@ %def gssubn

\subsection[h.37 GSTN]{h.37 GSTN: S\&L government net transfer payments, current \$}

<<variable GSTN>>=
GSTN     = S&L government net transfer payments, current $                                               
@ %def GSTN

<<equation gstn>>=
gstn: gstn - gstn_aerr = .01*pgdp*gst 


@ %def gstn

\subsection[h.38 GST]{h.38 GST: S\&L government net transfer payments, deflated by PGDP}

<<variable GST>>=
GST      = S&L government net transfer payments, deflated by PGDP                                        
@ %def GST

<<equation gst>>=
gst: gst - gst_aerr = (gstrd+gstrt)*xgdpt 


@ %def gst

\subsection[h.39 GSTRD]{h.39 GSTRD: Deviation of ratio of S\&L transfers to GDP from trend ratio}

<<variable GSTRD>>=
GSTRD    = Deviation of ratio of S&L transfers to GDP from trend ratio                                   
@ %def GSTRD

<<equation gstrd>>=
gstrd: gstrd - gstrd_aerr = y_gstrd(1) _
                   + y_gstrd(2) * gstrd(-1) _
                   + y_gstrd(3) * xgap2 


@ %def gstrd

<<coefficient y{\_}gstrd>>=
y_gstrd	3	-1.235658095172135e-05,0.7366990097980338,-4.483509762335216e-05
@ %def y_gstrd

\subsection[h.40 GSSUB]{h.40 GSSUB: S\&L government subsidies less surplus, deflated by PGDP}

<<variable GSSUB>>=
GSSUB    = S&L government subsidies less surplus, deflated by PGDP                                       
@ %def GSSUB

<<equation gssub>>=
gssub: gssub - gssub_aerr = ugssub*xgdpt 


@ %def gssub


\subsection[h.41 TFCIN]{h.41 TFCIN: Federal corporate income tax accruals, current \$}

<<variable TFCIN>>=
TFCIN    = Federal corporate income tax accruals, current $                                              
@ %def TFCIN

<<equation tfcin>>=
tfcin: tfcin - tfcin_aerr = trfci * ynicpn 


@ %def tfcin

\subsection[h.42 TFIBN]{h.42 TFIBN: Federal indirect business tax receipts, current \$}

<<variable TFIBN>>=
TFIBN    = Federal indirect business tax receipts, current $                                             
@ %def TFIBN

<<equation tfibn>>=
tfibn: tfibn - tfibn_aerr = trfib * ecnian 


@ %def tfibn

\subsection[h.43 TFPN]{h.43 TFPN: Federal personal income tax and nontax receipts, current \$}

<<variable TFPN>>=
TFPN     = Federal personal income tax and nontax receipts, current $                                    
@ %def TFPN

<<equation tfpn>>=
tfpn: tfpn - tfpn_aerr = trfp * (ypn - gftn - gstn) 


@ %def tfpn

\subsection[h.44 TFSIN]{h.44 TFSIN: Federal social insurance tax receipts}

<<variable TFSIN>>=
TFSIN    = Federal social insurance tax receipts                                                         
@ %def TFSIN

<<equation tfsin>>=
tfsin: tfsin - tfsin_aerr = trfsi * yniln 


@ %def tfsin

\subsection[h.45 TRFCI]{h.45 TRFCI: Average federal corporate income tax rate}

<<variable TRFCI>>=
TRFCI    = Average federal corporate income tax rate                                                     
@ %def TRFCI

<<equation trfci>>=
trfci: trfci - trfci_aerr = y_trfci(1) _
                   + y_trfci(2) * trfci(-1) _
                   + y_trfci(3) * trfcim _
                   + y_trfci(4) * .01*pxp*epd*ppdr*.01*tapdt/ynicpn _
                   + y_trfci(5) * xgap2 _
                   + y_trfci(6) * picnia 


@ %def trfci

<<coefficient y{\_}trfci>>=
y_trfci	6	0.00133892767133083,0.8130157141532537,0.1085501838146501,-0.2191884666432408,0.001365192823523333,0.002322348503950231
@ %def y_trfci

\subsection[h.46 TRFP]{h.46 TRFP: Average federal tax rate for personal income tax and nontax receipts}

<<variable TRFP>>=
TRFP     = Average federal tax rate for personal income tax and nontax receipts                          
@ %def TRFP

<<equation trfp>>=
trfp: trfp - trfp_aerr = y_trfp(1) * trfpt _
                 +  ( y_trfp(2) *  (trfp(-1)-trfpt(-1)) +  y_trfp(3) *  (trfp(-2)-trfpt(-2)))  _
                 + y_trfp(4) * xgap2(-1) 


@ %def trfp

<<coefficient y{\_}trfp>>=
y_trfp	4	1,0.6249369098272274,0.2896464773374296,0.0003722869429144596
@ %def y_trfp

\subsection[h.47 TRFPT]{h.47 TRFPT: Average federal tax rate for personal income tax, trend}

<<variable TRFPT>>=
TRFPT    = Average federal tax rate for personal income tax, trend                                       
@ %def TRFPT

<<equation trfpt>>=
trfpt: trfpt - trfpt_aerr = dfpex * trfptx _
                   + dfpdbt * ( trfpt(-1) _
                        + y_trfpt(1) * (gfdbtn(-1)/xgdpn(-1) - gfdrt(-1))  _
                        + y_trfpt(2) * d( gfdbtn(-1)/xgdpn(-1) - gfdrt(-1), 0, 1 ) ) _
                   + dfpsrp * ( trfpt(-1) _
                        + y_trfpt(3) * ((gfsrpn(-1) - egfin(-1) + jygfgn(-1) _
                              + jygfen(-1))/xgdpn(-1) - gfsrt(-1)))   


@ %def trfpt

<<coefficient y{\_}trfpt>>=
y_trfpt	3	0.05000000000000000E+00,0.50000000000000000E+00,-0.10000000000000000E+00
@ %def y_trfpt

\subsection[h.48 TRSCI]{h.48 TRSCI: Average S\&L corporate income tax rate}

<<variable TRSCI>>=
TRSCI    = Average S&L corporate income tax rate                                                         
@ %def TRSCI

<<equation trsci>>=
trsci: trsci - trsci_aerr = y_trsci(1) * trsci(-1) _
                   +  ( y_trsci(2) *  trscit +  y_trsci(3) *  trscit(-1))  _
                   +  ( y_trsci(4) *  xgap2 +  y_trsci(5) *  xgap2(-1))  _
                   + y_trsci(6) * d( trfci, 0, 1 ) 


@ %def trsci

<<coefficient y{\_}trsci>>=
y_trsci	6	0.791150698521011,0.9058859419794156,-0.6970366405004266,-0.0007681225777294368,0.0008131358184960206,0.1140499631819586
@ %def y_trsci

\subsection[h.49 TRSIB]{h.49 TRSIB: Average S\&L indirect business tax rate}

<<variable TRSIB>>=
TRSIB    = Average S&L indirect business tax rate                                                        
@ %def TRSIB

<<equation trsib>>=
trsib: trsib - trsib_aerr = y_trsib(1) * trsib(-1) _
                   +  ( y_trsib(2) *  trsibt +  y_trsib(3) *  trsibt(-1))  _
                   + y_trsib(4) * xgap2 


@ %def trsib

<<coefficient y{\_}trsib>>=
y_trsib	4	0.9134383490112551,1.33647889726315,-1.249917246274406,-3.353806684396447e-05
@ %def y_trsib

\subsection[h.50 TRSP]{h.50 TRSP: Average S\&L tax rate for personal income tax and nontax receipts}

<<variable TRSP>>=
TRSP     = Average S&L tax rate for personal income tax and nontax receipts                              
@ %def TRSP

<<equation trsp>>=
trsp: trsp - trsp_aerr = y_trsp(1) * trsp(-1) _
                 +  ( y_trsp(2) *  trspt +  y_trsp(3) *  trspt(-1))  _
                 + y_trsp(4) * xgap2(-1) _
                 + y_trsp(5) * d( trfp, 0, 1 ) 


@ %def trsp

<<coefficient y{\_}trsp>>=
y_trsp	5	0.632946369509944,0.882450152119161,-0.515396521629105,2.414664053290023e-05,0.01309189124950257
@ %def y_trsp

\subsection[h.51 TRSPT]{h.51 TRSPT: Trend S\&L personal income tax rate}

<<variable TRSPT>>=
TRSPT    = Trend S&L personal income tax rate                                                            
@ %def TRSPT

<<equation trspt>>=
trspt: trspt - trspt_aerr = dfpex * trsptx _
                   + dfpdbt * ( trspt(-1) _
                        + y_trspt(1) * (gsdbtn(-1)/xgdpn(-1) - gsdrt(-1))  _
                        + y_trspt(2) * d( gsdbtn(-1)/xgdpn(-1) - gsdrt(-1), 0, 1 ) ) _
                   + dfpsrp * ( trspt(-1) _
                        + y_trspt(3) * ((gssrpn(-1) - egsin(-1) + jygsgn(-1) _
                              + jygsen(-1))/xgdpn(-1) - gssrt(-1)))   


@ %def trspt

<<coefficient y{\_}trspt>>=
y_trspt	3	0.05000000000000000E+00,0.50000000000000000E+00,-0.2500000000000000E+00
@ %def y_trspt

\subsection[h.52 TRSSI]{h.52 TRSSI: Average S\&L social insurance tax rate}

<<variable TRSSI>>=
TRSSI    = Average S&L social insurance tax rate                                                         
@ %def TRSSI

<<equation trssi>>=
trssi: trssi - trssi_aerr =  ( y_trssi(1) *  trssi(-1) +  y_trssi(2) *  trssi(-2))  _
                   +  ( y_trssi(3) *  trssit +  y_trssi(4) *  trssit(-1))  _
                   + y_trssi(5) * xgap2 


@ %def trssi

<<coefficient y{\_}trssi>>=
y_trssi	5	1.18174981903228,-0.2318024453193926,1.575674530080275,-1.525621903793162,-5.026256090416318e-06
@ %def y_trssi

\subsection[h.53 TSCIN]{h.53 TSCIN: S\&L corporate income tax accruals, current \$}

<<variable TSCIN>>=
TSCIN    = S&L corporate income tax accruals, current $                                                  
@ %def TSCIN

<<equation tscin>>=
tscin: tscin - tscin_aerr = trsci * ynicpn 


@ %def tscin

\subsection[h.54 TSIBN]{h.54 TSIBN: S\&L indirect business tax receipts, current \$}

<<variable TSIBN>>=
TSIBN    = S&L indirect business tax receipts, current $                                                 
@ %def TSIBN

<<equation tsibn>>=
tsibn: tsibn - tsibn_aerr = trsib * ecnian 


@ %def tsibn

\subsection[h.55 TSPN]{h.55 TSPN: S\&L personal income tax and nontax receipts, current \$}

<<variable TSPN>>=
TSPN     = S&L personal income tax and nontax receipts, current $                                        
@ %def TSPN

<<equation tspn>>=
tspn: tspn - tspn_aerr = trsp * (ypn - gftn - gstn) 


@ %def tspn

\subsection[h.56 TSSIN]{h.56 TSSIN: S\&L social insurance tax receipts, current \$}

<<variable TSSIN>>=
TSSIN    = S&L social insurance tax receipts, current $                                                  
@ %def TSSIN

<<equation tssin>>=
tssin: tssin - tssin_aerr = trssi * yniln 


@ %def tssin

\subsection[h.57 YGFSN]{h.57 YGFSN: Federal government saving}

<<variable YGFSN>>=
YGFSN    = Federal government saving                                                                     
@ %def YGFSN

<<equation ygfsn>>=
ygfsn: ygfsn - ygfsn_aerr = gfsrpn + jygfgn + jygfen 


@ %def ygfsn

\subsection[h.58 YGSSN]{h.58 YGSSN: State and Local government saving}

<<variable YGSSN>>=
YGSSN    = State and Local government saving                                                             
@ %def YGSSN

<<equation ygssn>>=
ygssn: ygssn - ygssn_aerr = gssrpn + jygsgn + jygsen 


@ %def ygssn

\subsection[h.59 TRYH]{h.59 TRYH: Average tax rate on household income}

<<variable TRYH>>=
TRYH     = Average tax rate on household income                                                          
@ %def TRYH

<<equation tryh>>=
tryh: tryh - tryh_aerr = (tfpn+tspn)/(yhln+yhptn) 


@ %def tryh


\section{Financial Sector}

\subsection[i.1 RFFTAY]{i.1 RFFTAY: Value of eff. federal funds rate given by the Taylor rule with output gap}

<<variable RFFTAY>>=
RFFTAY   = Value of eff. federal funds rate given by the Taylor rule with output gap                     
@ %def RFFTAY

<<equation rfftay>>=
rfftay: rfftay - rfftay_aerr = rstar _
                     +  ( picxfe +  picxfe(-1) +  picxfe(-2) +  picxfe(-3))  / 4  _
                     + y_rfftay(1) * ( ( picxfe +  picxfe(-1) +  picxfe(-2) +  picxfe(-3))  / 4 -pitarg) _
                     + y_rfftay(2) * xgap2 


@ %def rfftay

<<coefficient y{\_}rfftay>>=
y_rfftay	2	0.5,1.0
@ %def y_rfftay

\subsection[i.2 RFFTLR]{i.2 RFFTLR: Value of eff. federal funds rate given by the Taylor rule with unemployment gap}

<<variable RFFTLR>>=
RFFTLR   = Value of eff. federal funds rate given by the Taylor rule with unemployment gap               
@ %def RFFTLR

<<equation rfftlr>>=
rfftlr: rfftlr - rfftlr_aerr = rstar  _
                       + y_rfftlr(1) * pitarg _
                       + y_rfftlr(2) * ( ( picxfe +  picxfe(-1) +  picxfe(-2) +  picxfe(-3)) ) _
                       + y_rfftlr(3) * (lurnat + deuc * leuc - lur) 


@ %def rfftlr

<<coefficient y{\_}rfftlr>>=
y_rfftlr	3	-0.5,.375,1.1
@ %def y_rfftlr

\subsection[i.3 RFFINTAY]{i.3 RFFINTAY: Value of eff. federal funds rate given by the inertial Taylor rule}

<<variable RFFINTAY>>=
RFFINTAY = Value of eff. federal funds rate given by the inertial Taylor rule                            
@ %def RFFINTAY

<<equation rffintay>>=
rffintay: rffintay - rffintay_aerr = y_rffintay(3) * rffe(-1) _
                     + (1-y_rffintay(3)) * (rstar _
                     +  ( picxfe +  picxfe(-1) +  picxfe(-2) +  picxfe(-3))  / 4  _
                     + y_rffintay(1) * ( ( picxfe +  picxfe(-1) +  picxfe(-2) +  picxfe(-3))  / 4 -pitarg) _
                     + y_rffintay(2) * xgap2) 


@ %def rffintay

<<coefficient y{\_}rffintay>>=
y_rffintay	3	0.5,1.0,.85
@ %def y_rffintay

\subsection[i.4 RFFALT]{i.4 RFFALT: Value of eff. federal funds rate given by estimated policy rule}

<<variable RFFALT>>=
RFFALT   = Value of eff. federal funds rate given by estimated policy rule                               
@ %def RFFALT

<<equation rffalt>>=
rffalt: rffalt - rffalt_aerr = y_rffalt(1) _
                     + y_rffalt(2) * rff(-1) _
                     + y_rffalt(3) * rff(-2) _
                     + y_rffalt(4) * xgap2 _
                     + y_rffalt(5) * xgap2(-1) _
                     + y_rffalt(6) * ( ( picxfe +  picxfe(-1) +  picxfe(-2) +  picxfe(-3))  / 4 ) 


@ %def rffalt

<<coefficient y{\_}rffalt>>=
y_rffalt	6	.0551,1.2,-.39,.6954,-.5168,.3287
@ %def y_rffalt

\subsection[i.5 RFFGEN]{i.5 RFFGEN: Value of eff. federal funds rate given by the generalized reaction function}

<<variable RFFGEN>>=
RFFGEN   = Value of eff. federal funds rate given by the generalized reaction function                   
@ %def RFFGEN

<<equation rffgen>>=
rffgen: rffgen - rffgen_aerr = y_rffgen(1) _
                     +  ( y_rffgen(2) *  rffe(-1) +  y_rffgen(3) *  rffe(-2) +  y_rffgen(4) *  rffe(-3) +  y_rffgen(5) *  rffe(-4))  _
                     +  ( y_rffgen(6) *  picnia +  y_rffgen(7) *  picnia(-1) +  y_rffgen(8) *  picnia(-2) +  y_rffgen(9) *  picnia(-3) +  y_rffgen(10) *  picnia(-4))  _
                     +  ( y_rffgen(11) *  xgap2 +  y_rffgen(12) *  xgap2(-1) +  y_rffgen(13) *  xgap2(-2) +  y_rffgen(14) *  xgap2(-3) +  y_rffgen(15) *  xgap2(-4))  _
                     +  ( y_rffgen(16) *  lur +  y_rffgen(17) *  lur(-1) +  y_rffgen(18) *  lur(-2) +  y_rffgen(19) *  lur(-3) +  y_rffgen(20) *  lur(-4))  _
                     +  ( y_rffgen(21) *  pcnia +  y_rffgen(22) *  pcnia(-1) +  y_rffgen(23) *  pcnia(-2) +  y_rffgen(24) *  pcnia(-3) +  y_rffgen(25) *  pcnia(-4))  _
                     +  ( y_rffgen(26) *  rstar +  y_rffgen(27) *  rstar(-1) +  y_rffgen(28) *  rstar(-2) +  y_rffgen(29) *  rstar(-3) +  y_rffgen(30) *  rstar(-4))  _
                     +  ( y_rffgen(31) *  pitarg +  y_rffgen(32) *  pitarg(-1) +  y_rffgen(33) *  pitarg(-2) +  y_rffgen(34) *  pitarg(-3) +  y_rffgen(35) *  pitarg(-4))  _
                     +  ( y_rffgen(36) *  lurnat +  y_rffgen(37) *  lurnat(-1) +  y_rffgen(38) *  lurnat(-2) +  y_rffgen(39) *  lurnat(-3) +  y_rffgen(40) *  lurnat(-4))  _
                     +  ( y_rffgen(41) *  pcstar +  y_rffgen(42) *  pcstar(-1) +  y_rffgen(43) *  pcstar(-2) +  y_rffgen(44) *  pcstar(-3) +  y_rffgen(45) *  pcstar(-4))  _
                     +  ( y_rffgen(46) *  picxfe +  y_rffgen(47) *  picxfe(-1) +  y_rffgen(48) *  picxfe(-2) +  y_rffgen(49) *  picxfe(-3) +  y_rffgen(50) *  picxfe(-4))  


@ %def rffgen

<<coefficient y{\_}rffgen>>=
y_rffgen	50	0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,3.750000000000000000e-01,3.750000000000000000e-01,3.750000000000000000e-01,3.750000000000000000e-01,0.000000000000000000e+00,5.000000000000000000e-01,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,1.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,-5.000000000000000000e-01,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00,0.000000000000000000e+00
@ %def y_rffgen

\subsection[i.6 RSTAR]{i.6 RSTAR: Equilibrium real federal funds rate (for monetary policy reaction functions)}

<<variable RSTAR>>=
RSTAR    = Equilibrium real federal funds rate (for monetary policy reaction functions)                  
@ %def RSTAR

<<equation rstar>>=
rstar: rstar - rstar_aerr = rstar(-1) _
                   + y_rstar(1) * ((rrffe-rstar(-1))*drstar) 


@ %def rstar

<<coefficient y{\_}rstar>>=
y_rstar	1	.05
@ %def y_rstar

\subsection[i.7 RFFRULE]{i.7 RFFRULE: Federal funds rate (effective ann. yield)}

<<variable RFFRULE>>=
RFFRULE  = Federal funds rate (effective ann. yield)                                                     
@ %def RFFRULE

<<equation rffrule>>=
rffrule: rffrule - rffrule_aerr =  (@recode((dmpex * 100 * ((1+rfffix/36000)^365-1) _
                       + dmprr  * (rrfix +  ( picxfe +  picxfe(-1) +  picxfe(-2) +  picxfe(-3))  / 4 ) _
                       + dmptay * rfftay  _
                       + dmptlr * rfftlr  _
                       + dmpintay * rffintay  _
                       + dmpalt * 100*((1+rffalt/36000)^365-1) _
                       + dmpgen * rffgen)>(rffmin),dmpex * 100 * ((1+rfffix/36000)^365-1) _
                       + dmprr  * (rrfix +  ( picxfe +  picxfe(-1) +  picxfe(-2) +  picxfe(-3))  / 4 ) _
                       + dmptay * rfftay  _
                       + dmptlr * rfftlr  _
                       + dmpintay * rffintay  _
                       + dmpalt * 100*((1+rffalt/36000)^365-1) _
                       + dmpgen * rffgen,rffmin)) 


@ %def rffrule

\subsection[i.8 DMPTLUR]{i.8 DMPTLUR: Monetary policy indicator for unemployment threshold}

<<variable DMPTLUR>>=
DMPTLUR  = Monetary policy indicator for unemployment threshold                                          
@ %def DMPTLUR

<<equation dmptlur>>=
dmptlur: dmptlur - dmptlur_aerr = 1/(1+exp(y_dmptlur(1)*(lur-lurtrsh))) 


@ %def dmptlur

<<coefficient y{\_}dmptlur>>=
y_dmptlur	1	25
@ %def y_dmptlur

\subsection[i.9 DMPTPI]{i.9 DMPTPI: Monetary policy indicator for inflation threshold}

<<variable DMPTPI>>=
DMPTPI   = Monetary policy indicator for inflation threshold                                             
@ %def DMPTPI

<<equation dmptpi>>=
dmptpi: dmptpi - dmptpi_aerr = 1/(1+exp(y_dmptpi(1)*(zpic58-pitrsh))) 


@ %def dmptpi

<<coefficient y{\_}dmptpi>>=
y_dmptpi	1	-25
@ %def y_dmptpi

\subsection[i.10 DMPTMAX]{i.10 DMPTMAX: Monetary policy indicator for both thresholds}

<<variable DMPTMAX>>=
DMPTMAX  = Monetary policy indicator for both thresholds                                                 
@ %def DMPTMAX

<<equation dmptmax>>=
dmptmax: dmptmax - dmptmax_aerr = (@recode((dmptlur)>(dmptpi),dmptlur,dmptpi)) 


@ %def dmptmax

\subsection[i.11 DMPTR]{i.11 DMPTR: Monetary policy indicator for policy rule thresholds}

<<variable DMPTR>>=
DMPTR    = Monetary policy indicator for policy rule thresholds                                          
@ %def DMPTR

<<equation dmptr>>=
dmptr: dmptr - dmptr_aerr = (@recode((dmptmax)>(dmptr(-1)),dmptmax,dmptr(-1))) 


@ %def dmptr

\subsection[i.12 RFFE]{i.12 RFFE: Federal funds rate (effective ann. yield)}

<<variable RFFE>>=
RFFE     = Federal funds rate (effective ann. yield)                                                     
@ %def RFFE

<<equation rffe>>=
rffe: rffe - rffe_aerr = (1-dmptrsh) * (@recode((rffrule)>( rffmin),rffrule, rffmin))  _
                   + dmptrsh * (@recode(((dmptr(-1)*rffrule + (1-dmptr(-1))*rffmin))>( rffmin),(dmptr(-1)*rffrule + (1-dmptr(-1))*rffmin), rffmin)) 


@ %def rffe

\subsection[i.13 RFF]{i.13 RFF: Federal funds rate}

<<variable RFF>>=
RFF      = Federal funds rate                                                                            
@ %def RFF

<<equation rff>>=
rff: rff - rff_aerr = 36000*( (1+.01*rffe)^(1/365) - 1 ) 


@ %def rff

\subsection[i.14 DELRFF]{i.14 DELRFF: Federal funds rate, first diff}

<<variable DELRFF>>=
DELRFF   = Federal funds rate, first diff                                                                
@ %def DELRFF

<<equation delrff>>=
delrff: delrff - delrff_aerr = rff - rff(-1) 


@ %def delrff

\subsection[i.15 RRFFE]{i.15 RRFFE: Real federal funds rate (effective ann. yield)}

<<variable RRFFE>>=
RRFFE    = Real federal funds rate (effective ann. yield)                                                
@ %def RRFFE

<<equation rrffe>>=
rrffe: rrffe - rrffe_aerr = rffe -  ( picxfe +  picxfe(-1) +  picxfe(-2) +  picxfe(-3))  / 4  


@ %def rrffe

\subsection[i.16 RTBE]{i.16 RTBE: 3-month Treasury bill rate (effective ann. yield)}

<<variable RTBE>>=
RTBE     = 3-month Treasury bill rate (effective ann. yield)                                             
@ %def RTBE

<<equation rtbe>>=
rtbe: rtbe - rtbe_aerr = y_rtbe(1) _
                 +  ( y_rtbe(2) *  rtbe(-1) +  y_rtbe(3) *  rtbe(-2))  _
                 +  ( y_rtbe(4) *  rffe +  y_rtbe(5) *  rffe(-1))  


@ %def rtbe

<<coefficient y{\_}rtbe>>=
y_rtbe	5	-0.06677368009690213,0.7720707564737897,0.1224099968713681,0.7850952301068258,-0.6795759834519835
@ %def y_rtbe

\subsection[i.17 RTB]{i.17 RTB: 3-month Treasury bill rate}

<<variable RTB>>=
RTB      = 3-month Treasury bill rate                                                                    
@ %def RTB

<<equation rtb>>=
rtb: rtb - rtb_aerr = 36000/90 * (1-(.01*rtbe+1)^(-90/365)) 


@ %def rtb

\subsection[i.18 RG5P]{i.18 RG5P: 5-year Treasury note rate. term premium}

<<variable RG5P>>=
RG5P     = 5-year Treasury note rate. term premium                                                       
@ %def RG5P

<<equation rg5p>>=
rg5p: rg5p - rg5p_aerr = y_rg5p(1) _
                 + y_rg5p(2) * zgap05 _
                 + y_rg5p(3) * (rg5p(-1) - y_rg5p(1) - y_rg5p(2)*zgap05(-1)) 


@ %def rg5p

<<coefficient y{\_}rg5p>>=
y_rg5p	3	0.7478923780795074,-0.3984697511015516,0.9119509672669279
@ %def y_rg5p

\subsection[i.19 RG5E]{i.19 RG5E: 5-year Treasury note rate (effective ann. yield)}

<<variable RG5E>>=
RG5E     = 5-year Treasury note rate (effective ann. yield)                                              
@ %def RG5E

<<equation rg5e>>=
rg5e: rg5e - rg5e_aerr = zrff5 + rg5p 


@ %def rg5e

\subsection[i.20 RG5]{i.20 RG5: 5-year Treasury note rate}

<<variable RG5>>=
RG5      = 5-year Treasury note rate                                                                     
@ %def RG5

<<equation rg5>>=
rg5: rg5 - rg5_aerr = (( (.01*rg5e + 1)^.5 - 1) * 200) 


@ %def rg5

\subsection[i.21 RG10P]{i.21 RG10P: 10-year Treasury bond rate, term premium}

<<variable RG10P>>=
RG10P    = 10-year Treasury bond rate, term premium                                                      
@ %def RG10P

<<equation rg10p>>=
rg10p: rg10p - rg10p_aerr = y_rg10p(1) _
                   + y_rg10p(2) * zgap10 _
                   + y_rg10p(3) * d8095 _
                   + y_rg10p(4) * (rg10p(-1) - y_rg10p(1)  - y_rg10p(2)*zgap10(-1) - y_rg10p(3)*d8095(-1)) 


@ %def rg10p

<<coefficient y{\_}rg10p>>=
y_rg10p	4	0.9985065593208419,-0.4718548432007495,0.7314217770878953,0.8959336376550136
@ %def y_rg10p

\subsection[i.22 RG10E]{i.22 RG10E: 10-year Treasury bond rate (effective ann. yield)}

<<variable RG10E>>=
RG10E    = 10-year Treasury bond rate (effective ann. yield)                                             
@ %def RG10E

<<equation rg10e>>=
rg10e: rg10e - rg10e_aerr = zrff10 + rg10p 


@ %def rg10e

\subsection[i.23 RG10]{i.23 RG10: 10-year Treasury bond rate}

<<variable RG10>>=
RG10     = 10-year Treasury bond rate                                                                    
@ %def RG10

<<equation rg10>>=
rg10: rg10 - rg10_aerr = (( (.01*rg10e + 1)^.5 - 1) * 200) 


@ %def rg10

\subsection[i.24 RG30P]{i.24 RG30P: 30-year Treasury bond rate, term premium}

<<variable RG30P>>=
RG30P    = 30-year Treasury bond rate, term premium                                                      
@ %def RG30P

<<equation rg30p>>=
rg30p: rg30p - rg30p_aerr = y_rg30p(1) _
                   + y_rg30p(2) * zgap30 _
                   + y_rg30p(3) * d8095 _
                   + y_rg30p(4) * (rg30p(-1) - y_rg30p(1) - y_rg30p(2)*zgap30(-1) - y_rg30p(3)*d8095(-1)) 


@ %def rg30p

<<coefficient y{\_}rg30p>>=
y_rg30p	4	1.337544689343979,-0.5892843861420656,0.8365523842356651,0.9045588991659449
@ %def y_rg30p

\subsection[i.25 RG30E]{i.25 RG30E: 30-year Treasury bond rate (effective ann. yield)}

<<variable RG30E>>=
RG30E    = 30-year Treasury bond rate (effective ann. yield)                                             
@ %def RG30E

<<equation rg30e>>=
rg30e: rg30e - rg30e_aerr = zrff30 + rg30p 


@ %def rg30e

\subsection[i.26 RG30]{i.26 RG30: 30-year Treasury bond rate}

<<variable RG30>>=
RG30     = 30-year Treasury bond rate                                                                    
@ %def RG30

<<equation rg30>>=
rg30: rg30 - rg30_aerr = (( (.01*rg30e + 1)^.5 - 1) * 200) 


@ %def rg30

\subsection[i.27 RBBBP]{i.27 RBBBP: S\&P BBB corporate bond rate, risk/term premium}

<<variable RBBBP>>=
RBBBP    = S&P BBB corporate bond rate, risk/term premium                                                
@ %def RBBBP

<<equation rbbbp>>=
rbbbp: rbbbp - rbbbp_aerr = y_rbbbp(1) _
                   + y_rbbbp(2) * zgap10 _
                   + y_rbbbp(3) * (rbbbp(-1) - y_rbbbp(4) - y_rbbbp(5)*zgap10(-1)) 


@ %def rbbbp

<<coefficient y{\_}rbbbp>>=
y_rbbbp	5	1.663544231588651,-0.1493888609930089,0.8866986585299741,1.663544231588651,-0.1493888609930089
@ %def y_rbbbp

\subsection[i.28 RBBBE]{i.28 RBBBE: S\&P BBB corporate bond rate (effective ann. yield)}

<<variable RBBBE>>=
RBBBE    = S&P BBB corporate bond rate (effective ann. yield)                                            
@ %def RBBBE

<<equation rbbbe>>=
rbbbe: rbbbe - rbbbe_aerr = rbbbp + rg10e 


@ %def rbbbe

\subsection[i.29 RBBB]{i.29 RBBB: S\&P BBB corporate bond rate}

<<variable RBBB>>=
RBBB     = S&P BBB corporate bond rate                                                                   
@ %def RBBB

<<equation rbbb>>=
rbbb: rbbb - rbbb_aerr = ( ( (0.01*rbbbe + 1)^.5 - 1 ) * 200 ) 


@ %def rbbb

\subsection[i.30 RCAR]{i.30 RCAR: New car loan rate at finance companies}

<<variable RCAR>>=
RCAR     = New car loan rate at finance companies                                                        
@ %def RCAR

<<equation rcar>>=
rcar: rcar - rcar_aerr = y_rcar(1) _
                 + y_rcar(2) * d79a _
                 + y_rcar(3) * ((1-d79a)*t47) _
                 + y_rcar(4) * rcar(-1) _
                 +  ( y_rcar(5) *  rg5 +  y_rcar(6) *  rg5(-1))  


@ %def rcar

<<coefficient y{\_}rcar>>=
y_rcar	6	2.100170296931854,-1.167642954704071,-0.008386800063101975,0.6937687101118568,0.1028002581287203,0.203431031759423
@ %def y_rcar

\subsection[i.31 RME]{i.31 RME: Interest rate on conventional mortgages (effective ann. yield)}

<<variable RME>>=
RME      = Interest rate on conventional mortgages (effective ann. yield)                                
@ %def RME

<<equation rme>>=
rme: d( rme, 0, 1 ) - rme_aerr = y_rme(1) _
               + y_rme(2) * d( rg10e, 0, 1) _
               + y_rme(3) * d87 * d( rg10e, 0, 1) _
               + y_rme(4) * (rg10e(-1)-rme(-1)) _
               + y_rme(5) * d87 * (rg10e(-1)-rme(-1)) 


@ %def rme

<<coefficient y{\_}rme>>=
y_rme	5	0.4927100798849811,0.6776016328060693,0.2424386344238626,0.2305037984560807,0.06809063290137502
@ %def y_rme

\subsection[i.32 REQP]{i.32 REQP: Real expected rate of return on equity, premium component}

<<variable REQP>>=
REQP     = Real expected rate of return on equity, premium component                                     
@ %def REQP

<<equation reqp>>=
reqp: reqp - reqp_aerr = y_reqp(1) + y_reqp(2) * rbbbp _
                        + y_reqp(3) * (reqp(-1) - y_reqp(4) - y_reqp(5)*rbbbp(-1)) 


@ %def reqp

<<coefficient y{\_}reqp>>=
y_reqp	5	2.882980324228344,0.6395674906531285,0.8185047577678474,2.882980324228344,0.6395674906531285
@ %def y_reqp

\subsection[i.33 REQ]{i.33 REQ: Real expected rate of return on equity}

<<variable REQ>>=
REQ      = Real expected rate of return on equity                                                        
@ %def REQ

<<equation req>>=
req: req - req_aerr = rg30e - zpic30 + reqp 


@ %def req

\subsection[i.34 WPSN]{i.34 WPSN: Household stock market wealth, current \$}

<<variable WPSN>>=
WPSN     = Household stock market wealth, current $                                                      
@ %def WPSN

<<equation wpsn>>=
wpsn: log(wpsn) - wpsn_aerr = log((ynicpn-tfcin-tscin)*.5)  _
                      - .25 * (req-zdivgr) _
                      + log(25) + 1 


@ %def wpsn

\subsection[i.35 WPS]{i.35 WPS: Household stock market wealth, real}

<<variable WPS>>=
WPS      = Household stock market wealth, real                                                           
@ %def WPS

<<equation wps>>=
wps: wps - wps_aerr = wpsn/(.01*pcnia) 


@ %def wps

\subsection[i.36 RCGAIN]{i.36 RCGAIN: Rate of capital gain on the non-equity portion of household wealth}

<<variable RCGAIN>>=
RCGAIN   = Rate of capital gain on the non-equity portion of household wealth                            
@ %def RCGAIN

<<equation rcgain>>=
rcgain: rcgain - rcgain_aerr = picx4 + y_rcgain(1) _
                     + y_rcgain(2) * xgap2 _
                     + y_rcgain(3) * (rcgain(-1) - picx4(-1) - y_rcgain(4)  _
                     - y_rcgain(5) * xgap2(-1) ) 


@ %def rcgain

<<coefficient y{\_}rcgain>>=
y_rcgain	5	0.1522590051966577,0.2987109747902424,0.2513416212164487,0.1522590051966577,0.2987109747902424
@ %def y_rcgain

\subsection[i.37 PHOUSE]{i.37 PHOUSE: Loan Performance House Price Index}

<<variable PHOUSE>>=
PHOUSE   = Loan Performance House Price Index                                                            
@ %def PHOUSE

<<equation phouse>>=
phouse: d( log(phouse), 0, 1) - phouse_aerr = y_phouse(1) + y_phouse(2) * d( log(phouse(-1)), 0, 1) _
                        + y_phouse(3) * log(phouse(-1)/(pchr(-1)*pcnia(-1))) 


@ %def phouse

<<coefficient y{\_}phouse>>=
y_phouse	3	0.004817103239693556,0.8898461413782496,-0.01120829645070205
@ %def y_phouse

\subsection[i.38 WPON]{i.38 WPON: Household property wealth ex. stock market, current \$}

<<variable WPON>>=
WPON     = Household property wealth ex. stock market, current $                                         
@ %def WPON

<<equation wpon>>=
wpon: wpon - wpon_aerr = wpon(-1)*exp( (1-((phouse(-1)*kh(-1)/116)/wpon(-1)))*rcgain/400  _
+ ((phouse(-1)*kh(-1)/116)/wpon(-1))*d( log(phouse), 0, 1) ) _
                 + .25 * (ydn-ecnian-yhibn) _
                 + .25 * (.01*pcdr*pcnia*(ecd-jkcd)) 


@ %def wpon

\subsection[i.39 MEI]{i.39 MEI: Multiplicative discrepancy for the difference between XGDI and XGDO}

<<variable MEI>>=
MEI      = Multiplicative discrepancy for the difference between XGDI and XGDO                           
@ %def MEI

<<equation mei>>=
mei: log(mei) - mei_aerr = y_mei(1) * log(mei(-1)) 


@ %def mei

<<coefficient y{\_}mei>>=
y_mei	1	0.86
@ %def y_mei

\subsection[i.40 WPO]{i.40 WPO: Household property wealth ex. stock market, real}

<<variable WPO>>=
WPO      = Household property wealth ex. stock market, real                                              
@ %def WPO

<<equation wpo>>=
wpo: wpo - wpo_aerr = wpon/(.01*pcnia) 


@ %def wpo

\subsection[i.41 MEP]{i.41 MEP: Multiplicative discrepancy for the difference between XGDP and XGDO}

<<variable MEP>>=
MEP      = Multiplicative discrepancy for the difference between XGDP and XGDO                           
@ %def MEP

<<equation mep>>=
mep: log(mep) - mep_aerr = y_mep(1) * log(mep(-1)) 


@ %def mep

<<coefficient y{\_}mep>>=
y_mep	1	0.86
@ %def y_mep

\subsection[i.42 RGW]{i.42 RGW: Approximate average rate of interest on new federal debt}

<<variable RGW>>=
RGW      = Approximate average rate of interest on new federal debt                                      
@ %def RGW

<<equation rgw>>=
rgw: rgw - rgw_aerr = y_rgw(1) * rtb _
               + y_rgw(2) * rg5 _
               + y_rgw(3) * rg10 _
               + y_rgw(4) * rg30 


@ %def rgw

<<coefficient y{\_}rgw>>=
y_rgw	4	.00495,.00271,.00129,.00105
@ %def y_rgw

\subsection[i.43 RGFINT]{i.43 RGFINT: Average rate of interest on existing federal debt}

<<variable RGFINT>>=
RGFINT   = Average rate of interest on existing federal debt                                             
@ %def RGFINT

<<equation rgfint>>=
rgfint: rgfint - rgfint_aerr  _
                = (y_rgfint(1) * rgfint(-1) + (1-y_rgfint(1))*rgw(-1))*(gfdbtn(-2)/gfdbtn(-1)) _
                + rgw(-1)*(1-gfdbtn(-2)/gfdbtn(-1)) + y_rgfint(2) 


@ %def rgfint

<<coefficient y{\_}rgfint>>=
y_rgfint	2	0.86,0.005417428040208504
@ %def y_rgfint

\subsection[i.44 RRMET]{i.44 RRMET: Real mortgage rate, trend}

<<variable RRMET>>=
RRMET    = Real mortgage rate, trend                                                                     
@ %def RRMET

<<equation rrmet>>=
rrmet: rrmet - rrmet_aerr = y_rrmet(1) * rrmet(-1) _
                   + y_rrmet(2) * (rme-zpi10) 


@ %def rrmet

<<coefficient y{\_}rrmet>>=
y_rrmet	2	.9048,.0952
@ %def y_rrmet


\section{Foreign Activity}

\subsection[j.1 FXGAP]{j.1 FXGAP: Foreign output gap (world, bilateral export weights)}

<<variable FXGAP>>=
FXGAP    = Foreign output gap (world, bilateral export weights)                                          
@ %def FXGAP

<<equation fxgap>>=
fxgap: fxgap - fxgap_aerr =  _
                   + y_fxgap(1) * fxgap(-1) _
                   + y_fxgap(2) * fxgap(-2) _
                   + y_fxgap(3) * ( ( frs10(-1) _
                     -(fpi10(-1)+fpi10(-2)+fpi10(-3)+fpi10(-4))/4 +  frs10(-2) _
                     -(fpi10(-2)+fpi10(-3)+fpi10(-4)+fpi10(-5))/4 +  frs10(-3) _
                     -(fpi10(-3)+fpi10(-4)+fpi10(-5)+fpi10(-6))/4) /3-frstar) _
                   + y_fxgap(4) * xgap2(-1) 


@ %def fxgap

<<coefficient y{\_}fxgap>>=
y_fxgap	4	1.284002584226955,-0.4544105287732581,-0.05,0.02742233318740996
@ %def y_fxgap

\subsection[j.2 FGDP]{j.2 FGDP: Foreign aggregate GDP (world, bilateral export weights)}

<<variable FGDP>>=
FGDP     = Foreign aggregate GDP (world, bilateral export weights)                                       
@ %def FGDP

<<equation fgdp>>=
fgdp: fgdp - fgdp_aerr = fgdpt*exp(fxgap/100) 


@ %def fgdp

\subsection[j.3 FGDPT]{j.3 FGDPT: Foreign aggregate GDP (world, bilateral export weights), trend}

<<variable FGDPT>>=
FGDPT    = Foreign aggregate GDP (world, bilateral export weights), trend                                
@ %def FGDPT

<<equation fgdpt>>=
fgdpt: d( log(fgdpt), 0, 1 ) - fgdpt_aerr  _
                    = y_fgdpt(1) _
                    + y_fgdpt(2) * log(fgdpt(-1)/xgdpt(-1)) _
                    + y_fgdpt(3) * (hggdpt+hggdpt(-1)+hggdpt(-2)+hggdpt(-3)) / 1600 


@ %def fgdpt

<<coefficient y{\_}fgdpt>>=
y_fgdpt	3	-.458264,-.1,1.0
@ %def y_fgdpt

\subsection[j.4 FPI10]{j.4 FPI10: Foreign consumer price inflation (G10)}

<<variable FPI10>>=
FPI10    = Foreign consumer price inflation (G10)                                                        
@ %def FPI10

<<equation fpi10>>=
fpi10: fpi10-fpi10_aerr = y_fpi10(1) * ( ( fpi10(-1) +  fpi10(-2) +  fpi10(-3) +  fpi10(-4))  / 4 ) _
                 + y_fpi10(2) * fpitrg _
                 + y_fpi10(3) * fxgap(-1) _
                 +  ( y_fpi10(4) * d( log(poilr), 0, 1 ) +  y_fpi10(5) * d( log(poilr(-1)), 0, 1 ))  


@ %def fpi10

<<coefficient y{\_}fpi10>>=
y_fpi10	5	0.7045829169372979,0.2954170830627021,0.2531839520282475,5.324212789847609,0.9163384620133771
@ %def y_fpi10

\subsection[j.5 FPI10T]{j.5 FPI10T: Foreign consumer price inflation, trend (G10)}

<<variable FPI10T>>=
FPI10T   = Foreign consumer price inflation, trend (G10)                                                 
@ %def FPI10T

<<equation fpi10t>>=
fpi10t: fpi10t-fpi10t_aerr = y_fpi10t(1) * fpi10t(-1) _
                   + y_fpi10t(2) * fpi10 


@ %def fpi10t

<<coefficient y{\_}fpi10t>>=
y_fpi10t	2	9.500000000000000000e-01,5.000000000000000000e-02
@ %def y_fpi10t

\subsection[j.6 FPIC]{j.6 FPIC: Foreign consumer price inflation (G39, bilateral export trade weights)}

<<variable FPIC>>=
FPIC     = Foreign consumer price inflation (G39, bilateral export trade weights)                        
@ %def FPIC

<<equation fpic>>=
fpic: fpic-fpic_aerr = y_fpic(1) _
               + y_fpic(2) * fpi10 _
               + y_fpic(3) * fpic(-1) 


@ %def fpic

<<coefficient y{\_}fpic>>=
y_fpic	3	2.174669585864584,0.6994194241702426,0.3005805758297574
@ %def y_fpic

\subsection[j.7 FPC]{j.7 FPC: Foreign aggregate consumer price (G39, import/export trade weights)}

<<variable FPC>>=
FPC      = Foreign aggregate consumer price (G39, import/export trade weights)                           
@ %def FPC

<<equation fpc>>=
fpc: fpc - fpc_aerr = fpc(-1)*exp(fpic/400) 


@ %def fpc

\subsection[j.8 FPCM]{j.8 FPCM: Foreign aggregate consumer price (G39, bilateral non-oil import trade weights)}

<<variable FPCM>>=
FPCM     = Foreign aggregate consumer price (G39, bilateral non-oil import trade weights)                
@ %def FPCM

<<equation fpcm>>=
fpcm: fpcm - fpcm_aerr = ufpcm*fpc 


@ %def fpcm

\subsection[j.9 FRS10]{j.9 FRS10: Foreign short-term interest rate (G10)}

<<variable FRS10>>=
FRS10    = Foreign short-term interest rate (G10)                                                        
@ %def FRS10

<<equation frs10>>=
frs10: frs10 - frs10_aerr = dfmprr * (y_frs10(1) _
                   + y_frs10(2) * frstar(-1) _
                   + y_frs10(3) * ( ( fpi10 +  fpi10(-1) +  fpi10(-2) +  fpi10(-3))  / 4) _
                   + y_frs10(4) * ( ( fpi10 +  fpi10(-1) +  fpi10(-2) +  fpi10(-3))  / 4 - fpitrg) _
                   + y_frs10(5) * fxgap) _
                   + (1-dfmprr) * (rfrs10 +  ( fpi10 +  fpi10(-1) +  fpi10(-2) +  fpi10(-3))  / 4) 


@ %def frs10

<<coefficient y{\_}frs10>>=
y_frs10	5	0.0,1.0,1.0,0.5,1.0
@ %def y_frs10

\subsection[j.10 FRSTAR]{j.10 FRSTAR: Equilibrium real short-term interest rate used in foreign Taylor rule}

<<variable FRSTAR>>=
FRSTAR   = Equilibrium real short-term interest rate used in foreign Taylor rule                         
@ %def FRSTAR

<<equation frstar>>=
frstar: frstar - frstar_aerr = y_frstar(1) * frstar(-1) _
                     + y_frstar(2) * (frs10 -  ( fpi10 +  fpi10(-1) +  fpi10(-2) +  fpi10(-3))  / 4) 


@ %def frstar

<<coefficient y{\_}frstar>>=
y_frstar	2	.95,.05
@ %def y_frstar

\subsection[j.11 FRL10]{j.11 FRL10: Foreign long-term interest rate (G10)}

<<variable FRL10>>=
FRL10    = Foreign long-term interest rate (G10)                                                         
@ %def FRL10

<<equation frl10>>=
frl10: frl10 - frl10(-1) - frl10_aerr = y_frl10(1) _
                               + y_frl10(2) * (frl10(-1) - frs10(-1)) _
                               + y_frl10(3) * (frl10(-1) - frl10(-2)) _
                               + y_frl10(4) * (frs10 - frs10(-1)) _
                               + y_frl10(5) * (fxgap - fxgap(-1)) 


@ %def frl10

<<coefficient y{\_}frl10>>=
y_frl10	5	0.03993364460261257,-0.07293669623744157,0.08403561227292196,0.3637926024013994,0.1321610044165027
@ %def y_frl10

\subsection[j.12 FPXR]{j.12 FPXR: Real exchange rate (G39, import/export trade weights)}

<<variable FPXR>>=
FPXR     = Real exchange rate (G39, import/export trade weights)                                         
@ %def FPXR

<<equation fpxr>>=
fpxr: log(fpxr) - fpxr_aerr - log(fpxrr) = _
                         y_fpxr(1)*(rg10e-zpi10f-frl10+fpi10t) _
                       + y_fpxr(2)*(fnin/xgdpn) 


@ %def fpxr

<<coefficient y{\_}fpxr>>=
y_fpxr	2	0.048,0.5
@ %def y_fpxr

\subsection[j.13 FPXRR]{j.13 FPXRR: Real exchange rate residual}

<<variable FPXRR>>=
FPXRR    = Real exchange rate residual                                                                   
@ %def FPXRR

<<equation fpxrr>>=
fpxrr: d( log(fpxrr), 0, 1 ) - fpxrr_aerr _
                    = y_fpxrr(1) * log(fpxrrt(-1)/fpxrr(-1)) _
                    + y_fpxrr(2) * d( log(fpxrr(-1)), 0, 1 ) _
                    + (1-y_fpxrr(2)) * d( log(fpxrrt), 0, 1 ) 


@ %def fpxrr

<<coefficient y{\_}fpxrr>>=
y_fpxrr	2	0.03011994048459088,0.2026244928161041
@ %def y_fpxrr

\subsection[j.14 FPX]{j.14 FPX: Nominal exchange rate (G39, import/export trade weights)}

<<variable FPX>>=
FPX      = Nominal exchange rate (G39, import/export trade weights)                                      
@ %def FPX

<<equation fpx>>=
fpx: fpx - fpx_aerr = fpxr*fpc/pcpi 


@ %def fpx

\subsection[j.15 FPXM]{j.15 FPXM: Nominal exchange rate (G39, bilateral import trade weights)}

<<variable FPXM>>=
FPXM     = Nominal exchange rate (G39, bilateral import trade weights)                                   
@ %def FPXM

<<equation fpxm>>=
fpxm: fpxm - fpxm_aerr = ufpxm*fpx*fpcm/fpc 


@ %def fpxm


\section{Expectations}

\subsection[z1.1 PTR]{z1.1 PTR: 10-year expected PCE price inflation (Survey of Professional Forecasters)}

\subsection[z1.2 RRTR]{z1.2 RRTR: Expected long-run real federal funds rate}

\subsection[z1.3 RTR]{z1.3 RTR: Expected federal funds rate in the long run (Blue Chip)}

\subsection[z1.4 ZRFF5]{z1.4 ZRFF5: Expected federal funds rate, for RG5E eq. (5-yr mat.) (VAR exp.)}

\subsection[z1.5 ZRFF10]{z1.5 ZRFF10: Expected federal funds rate, for RG10E eq. (10-yr mat.) (VAR exp.)}

\subsection[z1.6 ZRFF30]{z1.6 ZRFF30: Expected federal funds rate, for RG30E eq. (30-yr mat.) (VAR exp.)}

\subsection[z1.7 ZGAP05]{z1.7 ZGAP05: Expected output gap, for RG5E eq. (VAR exp.)}

\subsection[z1.8 ZGAP10]{z1.8 ZGAP10: Expected output gap, for RG10E eq. (VAR exp.)}

\subsection[z1.9 ZGAP30]{z1.9 ZGAP30: Expected output gap, for RG30E eq. (VAR exp.)}

\subsection[z1.10 ZPI5]{z1.10 ZPI5: Expected cons. price infl., for RCCD eq. (5-yr mat.) (VAR exp.)}

\subsection[z1.11 ZPIB5]{z1.11 ZPIB5: Expected output price infl., for RPD eq. (5-yr mat.) (VAR exp.)}

\subsection[z1.12 ZPI10]{z1.12 ZPI10: Expected cons. price infl., for RCCH, RRMET, and YHPNTN eqs. (10-yr mat.) (VAR exp.)}

\subsection[z1.13 ZPI10F]{z1.13 ZPI10F: Expected cons. price infl., for FPXR eq. (10-yr mat.) (VAR exp.)}

\subsection[z1.14 ZPIC30]{z1.14 ZPIC30: Expected cons. price infl., for REQ eq. (30-yr mat.) (VAR exp.)}

\subsection[z1.15 ZPIC58]{z1.15 ZPIC58: Expected 4-qtr consumer price inflation (8 qtrs. in the future) (VAR exp.)}

\subsection[z1.16 ZPICXFE]{z1.16 ZPICXFE: Expected value of picxfe in the next quarter (VAR exp.)}

\subsection[z1.17 ZPIECI]{z1.17 ZPIECI: Expected value of pieci in the next quarter (VAR exp.)}

\subsection[z1.18 ZECO]{z1.18 ZECO: Expected growth rate of target nondurables and nonhousing services, for ECO eq (VAR exp.)}

\subsection[z1.19 ZCD]{z1.19 ZECD: Expected growth rate of target durable consumption, for ECD eq. (VAR exp.)}

\subsection[z1.20 ZGAPC2]{z1.20 ZGAPC2: Expected output gap, for ECD eq. (VAR exp.)}

\subsection[z1.21 ZEH]{z1.21 ZEH: Expected growth rate of target residential investment, for EH eq. (VAR exp.)}

\subsection[z1.22 ZLHP]{z1.22 ZLHP: Expected growth rate of target aggregate hours (VAR exp.)}

\subsection[z1.23 ZVPD]{z1.23 ZVPD: Expected growth rate of capital-output ratio, for EPD (VAR exp.)}

\subsection[z1.24 ZVPI]{z1.24 ZVPI: Expected growth rate of capital-output ratio, for EPI (VAR exp.)}

\subsection[z1.25 ZVPS]{z1.25 ZVPS: Expected growth rate of des. capital-output ratio, for EPS eq. (VAR exp.)}

\subsection[z1.26 ZXBD]{z1.26 ZXBD: Expected growth rate of buisiness output for EPD (VAR exp.)}

\subsection[z1.27 ZXBI]{z1.27 ZXBI: Expected growth rate of business output, for EPI (VAR exp.)}

\subsection[z1.28 ZXBS]{z1.28 ZXBS: Expected growth rate of business output, for EPS (VAR exp.)}

\subsection[z1.29 ZDIVGR]{z1.29 ZDIVGR: Expected growth rate of real dividends, for WPSN eq. (VAR exp.)}

\subsection[z1.30 ZYNID]{z1.30 ZYNID: Expected rate of growth of target real dividends, for YNIDN eq. (VAR exp.)}

\subsection[z1.31 ZYH]{z1.31 ZYH: Expected level of real after-tax household income, for QEC eq. (VAR exp.)}

\subsection[z1.32 ZYHP]{z1.32 ZYHP: Expected level of real after-tax property income, for QEC eq. (VAR exp.)}

\subsection[z1.33 ZYHT]{z1.33 ZYHT: Expected level of real transfer income, for QEC eq. (VAR exp.)}

\subsection[z1.34 ZYHST]{z1.34 ZYHST: Expected trend ratio of household income to GDP}

<<variable ZYHST>>=
ZYHST    = Expected trend ratio of household income to GDP                                               
@ %def ZYHST

<<equation zyhst>>=
zyhst: zyhst-zyhst_aerr = zyhst(-1) + y_zyhst(1)*(yhshr-zyhst(-1)) 


@ %def zyhst

<<coefficient y{\_}zyhst>>=
y_zyhst	1	0.05000000000000000E+00
@ %def y_zyhst

\subsection[z1.35 ZYHPST]{z1.35 ZYHPST: Expected trend share of property income in household income}

<<variable ZYHPST>>=
ZYHPST   = Expected trend share of property income in household income                                   
@ %def ZYHPST

<<equation zyhpst>>=
zyhpst: zyhpst-zyhpst_aerr = zyhpst(-1) + y_zyhpst(1)*(yhpshr-zyhpst(-1)) 


@ %def zyhpst

<<coefficient y{\_}zyhpst>>=
y_zyhpst	1	0.05000000000000000E+00
@ %def y_zyhpst

\subsection[z1.36 ZYHTST]{z1.36 ZYHTST: Expected trend share of transfer income in household income}

<<variable ZYHTST>>=
ZYHTST   = Expected trend share of transfer income in household income                                   
@ %def ZYHTST

<<equation zyhtst>>=
zyhtst: zyhtst - zyhtst_aerr = zyhtst(-1) + y_zyhtst(1)*(yhtshr-zyhtst(-1)) 


@ %def zyhtst

<<coefficient y{\_}zyhtst>>=
y_zyhtst	1	0.05000000000000000E+00
@ %def y_zyhtst

\subsection[z1.37 HGYNID]{z1.37 HGYNID: Growth rate of real after-tax corporate profits}


\section{Model-Consistent Expectations}

\subsection[z2.1 PTR]{z2.1 PTR: 10-year expected PCE price inflation (Survey of Professional Forecasters)}

<<variable PTR>>=
PTR      = 10-year expected PCE price inflation (Survey of Professional Forecasters)                     
@ %def PTR

<<equation ptr>>=
ptr: ptr - ptr_aerr = y_ptr(1)*ptr(-1) + y_ptr(2)*picxfe(-1)+ y_ptr(3)*pitarg(-1) 


@ %def ptr

<<coefficient y{\_}ptr>>=
y_ptr	3	0.9,0.05,0.05
@ %def y_ptr

\subsection[z2.2 RRTR]{z2.2 RRTR: Expected long-run real federal funds rate}

<<variable RRTR>>=
RRTR     = Expected long-run real federal funds rate                                                     
@ %def RRTR

<<equation rrtr>>=
rrtr: rrtr - rrtr_aerr = y_rrtr(1) * rrtr(-1) _
                 + y_rrtr(2) * rrffe 


@ %def rrtr

<<coefficient y{\_}rrtr>>=
y_rrtr	2	.97,.03
@ %def y_rrtr

\subsection[z2.3 RTR]{z2.3 RTR: Expected federal funds rate in the long run (Blue Chip)}

<<variable RTR>>=
RTR      = Expected federal funds rate in the long run (Blue Chip)                                       
@ %def RTR

<<equation rtr>>=
rtr: rtr - rtr_aerr = rrtr + ptr 


@ %def rtr

\subsection[z2.4 ZRFF5]{z2.4 ZRFF5: Expected federal funds rate, for RG5E eq. (5-yr mat.) (MCE exp.)}

<<variable ZRFF5>>=
ZRFF5    = Expected federal funds rate, for RG5E eq. (5-yr mat.)                               
@ %def ZRFF5

<<equation zrff5>>=
zrff5:  zrff5-zrff5_aerr = y_zrff5(1) _
                  +  ( y_zrff5(2) *  picnia +  y_zrff5(3) *  picnia(-1) +  y_zrff5(4) *  picnia(-2) +  y_zrff5(5) *  picnia(-3))  _
                  +  ( y_zrff5(6) *  rffe +  y_zrff5(7) *  rffe(-1) +  y_zrff5(8) *  rffe(-2) +  y_zrff5(9) *  rffe(-3))  _
                  + y_zrff5(10) * rtr _
                  + y_zrff5(11) * ptr _
                  +  ( y_zrff5(12) *  xgap +  y_zrff5(13) *  xgap(-1) +  y_zrff5(14) *  xgap(-2) +  y_zrff5(15) *  xgap(-3))  


@ %def zrff5

<<coefficient y{\_}zrff5>>=
y_zrff5	15	-2.893994419845934e-13,-0.03329615692337154,-0.01651377444295286,-0.05232367187602783,-0.002538730673637747,0.2644334052604466,-0.01895045404753664,0.2159921082332517,-0.09277945584793452,0.6313043964018372,0.1046723339158034,0.7045336233227979,-0.4876819945235132,-0.02218121703087883,-0.0289262404118043
@ %def y_zrff5

\subsection[z2.5 ZRFF10]{z2.5 ZRFF10: Expected federal funds rate, for RG10E eq. (10-yr mat.) (MCE exp.)}

<<variable ZRFF10>>=
ZRFF10   = Expected federal funds rate, for RG10E eq. (10-yr mat.)                             
@ %def ZRFF10

<<equation zrff10>>=
zrff10:  zrff10-zrff10_aerr = y_zrff10(1) _
                    +  ( y_zrff10(2) *  picnia +  y_zrff10(3) *  picnia(-1) +  y_zrff10(4) *  picnia(-2) +  y_zrff10(5) *  picnia(-3))  _
                    +  ( y_zrff10(6) *  rffe +  y_zrff10(7) *  rffe(-1) +  y_zrff10(8) *  rffe(-2) +  y_zrff10(9) *  rffe(-3))  _
                    + y_zrff10(10) * rtr _
                    + y_zrff10(11) * ptr _
                    +  ( y_zrff10(12) *  xgap +  y_zrff10(13) *  xgap(-1) +  y_zrff10(14) *  xgap(-2) +  y_zrff10(15) *  xgap(-3))  


@ %def zrff10

<<coefficient y{\_}zrff10>>=
y_zrff10	15	-1.225928191740291e-13,-0.02771619956382117,-0.01188080871189547,-0.03292145537957496,-0.0007988879398016578,0.1588535670692386,-0.006506493604730732,0.1326535890970168,-0.05397286650354577,0.7689722039419999,0.07331735159496538,0.4244946860418865,-0.2974768532865669,-0.01838794275716279,-0.02056448214859063
@ %def y_zrff10

\subsection[z2.6 ZRFF30]{z2.6 ZRFF30: Expected federal funds rate, for RG30E eq. (30-yr mat.) (MCE exp.)}

<<variable ZRFF30>>=
ZRFF30   = Expected federal funds rate, for RG30E eq. (30-yr mat.)                             
@ %def ZRFF30

<<equation zrff30>>=
zrff30:  zrff30-zrff30_aerr = y_zrff30(1) _
                    +  ( y_zrff30(2) *  picnia +  y_zrff30(3) *  picnia(-1) +  y_zrff30(4) *  picnia(-2) +  y_zrff30(5) *  picnia(-3))  _
                    +  ( y_zrff30(6) *  rffe +  y_zrff30(7) *  rffe(-1) +  y_zrff30(8) *  rffe(-2) +  y_zrff30(9) *  rffe(-3))  _
                    + y_zrff30(10) * rtr _
                    + y_zrff30(11) * ptr _
                    +  ( y_zrff30(12) *  xgap +  y_zrff30(13) *  xgap(-1) +  y_zrff30(14) *  xgap(-2) +  y_zrff30(15) *  xgap(-3))  


@ %def zrff30

<<coefficient y{\_}zrff30>>=
y_zrff30	15	-6.431098710768743e-14,-0.01469452480129645,-0.006366611548946281,-0.01761451360235036,-0.0004750483597165188,0.08543314437647523,-0.0036101736515647,0.07098995255600646,-0.02900253059512549,0.8761896073141371,0.03915069831221923,0.2265793956742251,-0.1591496369244307,-0.0097620683394436,-0.01091585231191943
@ %def y_zrff30

\subsection[z2.7 ZGAP05]{z2.7 ZGAP05: Expected output gap, for RG5E eq. (MCE exp.)}

<<variable ZGAP05>>=
ZGAP05   = Expected output gap, for RG5E eq.                                                   
@ %def ZGAP05

<<equation zgap05>>=
zgap05:  zgap05-zgap05_aerr = y_zgap05(1) _
                    +  ( y_zgap05(2) *  picnia +  y_zgap05(3) *  picnia(-1) +  y_zgap05(4) *  picnia(-2) +  y_zgap05(5) *  picnia(-3))  _
                    +  ( y_zgap05(6) *  rffe +  y_zgap05(7) *  rffe(-1) +  y_zgap05(8) *  rffe(-2) +  y_zgap05(9) *  rffe(-3))  _
                    + y_zgap05(10) * rtr _
                    + y_zgap05(11) * ptr _
                    +  ( y_zgap05(12) *  xgap +  y_zgap05(13) *  xgap(-1) +  y_zgap05(14) *  xgap(-2) +  y_zgap05(15) *  xgap(-3))  


@ %def zgap05

<<coefficient y{\_}zgap05>>=
y_zgap05	15	2.257007909357927e-15,-0.1597149595303493,-0.02714596421531133,-0.0564486969188964,0.03787173834482167,-0.3922384032721391,0.104802705415998,0.1158640835018613,0.02356290899211369,0.1480087053621876,0.2054378823197458,1.044858011053748,-0.4115111013727816,-0.06215334547650801,-0.09514443209823661
@ %def y_zgap05

\subsection[z2.8 ZGAP10]{z2.8 ZGAP10: Expected output gap, for RG10E eq. (MCE exp.)}

<<variable ZGAP10>>=
ZGAP10   = Expected output gap, for RG10E eq.                                                  
@ %def ZGAP10

<<equation zgap10>>=
zgap10:  zgap10-zgap10_aerr = y_zgap10(1) _
                    +  ( y_zgap10(2) *  picnia +  y_zgap10(3) *  picnia(-1) +  y_zgap10(4) *  picnia(-2) +  y_zgap10(5) *  picnia(-3))  _
                    +  ( y_zgap10(6) *  rffe +  y_zgap10(7) *  rffe(-1) +  y_zgap10(8) *  rffe(-2) +  y_zgap10(9) *  rffe(-3))  _
                    + y_zgap10(10) * rtr _
                    + y_zgap10(11) * ptr _
                    +  ( y_zgap10(12) *  xgap +  y_zgap10(13) *  xgap(-1) +  y_zgap10(14) *  xgap(-2) +  y_zgap10(15) *  xgap(-3))  


@ %def zgap10

<<coefficient y{\_}zgap10>>=
y_zgap10	15	1.913550184020851e-15,-0.08856716084344839,-0.01514793353340919,-0.03064946067310276,0.02038547790704983,-0.2047276571629349,0.05787467169033944,0.06409707588452065,0.013364942058135,0.0693909675299768,0.1139790771429335,0.5573593590584416,-0.220685237022009,-0.03603086981077128,-0.05213527253290755
@ %def y_zgap10

\subsection[z2.9 ZGAP30]{z2.9 ZGAP30: Expected output gap, for RG30E eq. (MCE exp.)}

<<variable ZGAP30>>=
ZGAP30   = Expected output gap, for RG30E eq.                                                  
@ %def ZGAP30

<<equation zgap30>>=
zgap30:  zgap30-zgap30_aerr = y_zgap30(1) _
                    +  ( y_zgap30(2) *  picnia +  y_zgap30(3) *  picnia(-1) +  y_zgap30(4) *  picnia(-2) +  y_zgap30(5) *  picnia(-3))  _
                    +  ( y_zgap30(6) *  rffe +  y_zgap30(7) *  rffe(-1) +  y_zgap30(8) *  rffe(-2) +  y_zgap30(9) *  rffe(-3))  _
                    + y_zgap30(10) * rtr _
                    + y_zgap30(11) * ptr _
                    +  ( y_zgap30(12) *  xgap +  y_zgap30(13) *  xgap(-1) +  y_zgap30(14) *  xgap(-2) +  y_zgap30(15) *  xgap(-3))  


@ %def zgap30

<<coefficient y{\_}zgap30>>=
y_zgap30	15	9.185040883300084e-15,-0.04699887854311754,-0.008064404203305675,-0.01635817957558258,0.01081764060721674,-0.108559229820203,0.03065003739669631,0.03431085776819321,0.0069109574582897,0.03668737719706447,0.06060382171481976,0.2972253244442154,-0.1180146280628041,-0.01906987349275325,-0.02769487968608267
@ %def y_zgap30

\subsection[z2.10 ZPI5]{z2.10 ZPI5: Expected cons. price infl., for RCCD eq. (5-yr mat.) (MCE exp.)}

<<variable ZPI5>>=
ZPI5     = Expected cons. price infl., for RCCD eq. (5-yr mat.)                                
@ %def ZPI5

<<equation zpi5>>=
zpi5:  zpi5-zpi5_aerr =  ( y_zpi5(1) *  picnia(-1) +  y_zpi5(2) *  picnia(-2) +  y_zpi5(3) *  picnia(-3) +  y_zpi5(4) *  picnia(-4))  _
                +  ( y_zpi5(5) *  rffe(-1) +  y_zpi5(6) *  rffe(-2) +  y_zpi5(7) *  rffe(-3) +  y_zpi5(8) *  rffe(-4))  _
                + y_zpi5(9) * rtr(-1) _
                + y_zpi5(10) * ptr(-1) _
                +  ( y_zpi5(11) *  xgap(-1) +  y_zpi5(12) *  xgap(-2) +  y_zpi5(13) *  xgap(-3) +  y_zpi5(14) *  xgap(-4))  


@ %def zpi5

<<coefficient y{\_}zpi5>>=
y_zpi5	14	0.06758353158403318,0.02161485431596137,0.01782456814136856,0.002964524698211494,-0.1784068153490884,-0.01219526644801234,-0.03344726843631961,-0.01023559042275973,0.2342849406561925,0.8900125212604236,0.1833012341938106,-0.0650287410730993,0.0528818430536656,0.02402782072886659
@ %def y_zpi5

\subsection[z2.11 ZPIB5]{z2.11 ZPIB5: Expected output price infl., for RPD eq. (5-yr mat.) (MCE exp.)}

<<variable ZPIB5>>=
ZPIB5    = Expected output price infl., for RPD eq. (5-yr mat.)                                
@ %def ZPIB5

<<equation zpib5>>=
zpib5:  zpib5-zpib5_aerr = y_zpib5(1) _
          +  ( y_zpib5(2) *  picnia(-1) +  y_zpib5(3) *  picnia(-2) +  y_zpib5(4) *  picnia(-3) +  y_zpib5(5) *  picnia(-4))  _
          +  ( y_zpib5(6) *  rffe(-1) +  y_zpib5(7) *  rffe(-2) +  y_zpib5(8) *  rffe(-3) +  y_zpib5(9) *  rffe(-4))  _
          + y_zpib5(10) * rtr(-1) _
          + y_zpib5(11) * ptr(-1) _
          +  ( y_zpib5(12) *  xgap(-1) +  y_zpib5(13) *  xgap(-2) +  y_zpib5(14) *  xgap(-3) +  y_zpib5(15) *  xgap(-4))  _
          +  ( y_zpib5(16) *  (400*d( log(pxb(-1)), 0, 1 )) +  y_zpib5(17) *  (400*d( log(pxb(-2)), 0, 1 )) +  y_zpib5(18) *  (400*d( log(pxb(-3)), 0, 1 )) +  y_zpib5(19) *  (400*d( log(pxb(-4)), 0, 1 )))  


@ %def zpib5

<<coefficient y{\_}zpib5>>=
y_zpib5	19	2.014761562942157e-14,0.08381220448829916,0.03966837250165698,0.02968268489926514,-0.003293229323810457,-0.237687985938127,-0.02856252873761911,-0.059254687390406,-0.006824691934627426,0.3323298940008137,0.7546771576105244,0.1581339706948628,-0.03327994897983548,0.06961101474908289,0.01827516090098699,0.05126320478493507,0.02114269624364816,0.005125541806862506,0.01792136698863315
@ %def y_zpib5

\subsection[z2.12 ZPI10]{z2.12 ZPI10: Expected cons. price infl., for RCCH, RRMET, and YHPNTN eqs. (10-yr mat.) (MCE exp.)}

<<variable ZPI10>>=
ZPI10    = Expected cons. price infl., for RCCH, RRMET, and YHPNTN eqs. (10-yr mat.)           
@ %def ZPI10

<<equation zpi10>>=
zpi10:  zpi10-zpi10_aerr =  ( y_zpi10(1) *  picnia(-1) +  y_zpi10(2) *  picnia(-2) +  y_zpi10(3) *  picnia(-3) +  y_zpi10(4) *  picnia(-4))  _
                  +  ( y_zpi10(5) *  rffe(-1) +  y_zpi10(6) *  rffe(-2) +  y_zpi10(7) *  rffe(-3) +  y_zpi10(8) *  rffe(-4))  _
                  + y_zpi10(9) * rtr(-1) _
                  + y_zpi10(10) * ptr(-1) _
                  +  ( y_zpi10(11) *  xgap(-1) +  y_zpi10(12) *  xgap(-2) +  y_zpi10(13) *  xgap(-3) +  y_zpi10(14) *  xgap(-4))  


@ %def zpi10

<<coefficient y{\_}zpi10>>=
y_zpi10	14	0.03879756717884661,0.01310655690781879,0.01249073978840772,0.002013644447002661,-0.1115205655338142,-0.005218543101071759,-0.02773020608783435,-0.0009799021274967564,0.145449216850255,0.9335914916779205,0.07438741920019272,-0.01552458917184547,0.02988660307926152,0.01430435574486968
@ %def y_zpi10

\subsection[z2.13 ZPI10F]{z2.13 ZPI10F: Expected cons. price infl., for FPXR eq. (10-yr mat.) (MCE exp.)}

<<variable ZPI10F>>=
ZPI10F   = Expected cons. price infl., for FPXR eq. (10-yr mat.)                               
@ %def ZPI10F

<<equation zpi10f>>=
zpi10f:  zpi10f-zpi10f_aerr = zpi10 


@ %def zpi10f

\subsection[z2.14 ZPIC30]{z2.14 ZPIC30: Expected cons. price infl., for REQ eq. (30-yr mat.) (MCE exp.)}

<<variable ZPIC30>>=
ZPIC30   = Expected cons. price infl., for REQ eq. (30-yr mat.)                                
@ %def ZPIC30

<<equation zpic30>>=
zpic30:  zpic30-zpic30_aerr = y_zpic30(1) _
          +  ( y_zpic30(2) *  picnia +  y_zpic30(3) *  picnia(-1) +  y_zpic30(4) *  picnia(-2) +  y_zpic30(5) *  picnia(-3))  _
          +  ( y_zpic30(6) *  rffe +  y_zpic30(7) *  rffe(-1) +  y_zpic30(8) *  rffe(-2) +  y_zpic30(9) *  rffe(-3))  _
          + y_zpic30(10) * rtr _
          + y_zpic30(11) * ptr _
          +  ( y_zpic30(12) *  xgap +  y_zpic30(13) *  xgap(-1) +  y_zpic30(14) *  xgap(-2) +  y_zpic30(15) *  xgap(-3))  


@ %def zpic30

<<coefficient y{\_}zpic30>>=
y_zpic30	15	9.998348776898279e-14,0.03772442939281018,0.00691792724638696,0.00661122723525404,0.001034833732981703,-0.0585386000710487,-0.002855994709771948,-0.01477068587571074,-0.0004763373097472575,0.07664161796628073,0.9477115823926162,0.038244996340517,-0.007528545240453029,0.0157852915848761,0.007587462381349299
@ %def y_zpic30

\subsection[z2.15 ZPIC58]{z2.15 ZPIC58: Expected 4-qtr consumer price inflation (8 qtrs. in the future) (MCE exp.)}

<<variable ZPIC58>>=
ZPIC58   = Expected 4-qtr consumer price inflation (8 qtrs. in the future)                     
@ %def ZPIC58

<<equation zpic58>>=
zpic58:  zpic58-zpic58_aerr =  ( y_zpic58(1) *  picnia +  y_zpic58(2) *  picnia(-1) +  y_zpic58(3) *  picnia(-2) +  y_zpic58(4) *  picnia(-3))  _
                  +  ( y_zpic58(5) *  rffe +  y_zpic58(6) *  rffe(-1) +  y_zpic58(7) *  rffe(-2) +  y_zpic58(8) *  rffe(-3))  _
                  + y_zpic58(9) * rtr _
                  + y_zpic58(10) * ptr _
                  +  ( y_zpic58(11) *  xgap +  y_zpic58(12) *  xgap(-1) +  y_zpic58(13) *  xgap(-2) +  y_zpic58(14) *  xgap(-3))  


@ %def zpic58

<<coefficient y{\_}zpic58>>=
y_zpic58	14	0.3419924857225884,0.05029077146057983,0.04280461383060537,-0.01719635177394798,-0.01879746211135944,-0.08787338461054841,-0.02195161825369631,-0.0815952625463118,0.2102177275219142,0.5821084807601654,0.1528534385720439,-0.1534888728187284,0.1283265828471865,0.08934136158192268
@ %def y_zpic58

\subsection[z2.16 ZPICXFE]{z2.16 ZPICXFE: Expected value of picxfe in the next quarter (MCE exp.)}

<<variable ZPICXFE>>=
ZPICXFE  = Expected value of picxfe in the next quarter                                        
@ %def ZPICXFE

<<equation zpicxfe>>=
zpicxfe:   zpicxfe-zpicxfe_aerr =  ( y_zpicxfe(1) *  picxfe(-1) +  y_zpicxfe(2) *  picxfe(-2) +  y_zpicxfe(3) *  picxfe(-3) +  y_zpicxfe(4) *  picxfe(-4))  _
                 +  ( y_zpicxfe(5) *  pieci(-1) +  y_zpicxfe(6) *  pieci(-2) +  y_zpicxfe(7) *  pieci(-3) +  y_zpicxfe(8) *  pieci(-4))  _
                 +  ( y_zpicxfe(9) *  rffe(-1) +  y_zpicxfe(10) *  rffe(-2) +  y_zpicxfe(11) *  rffe(-3) +  y_zpicxfe(12) *  rffe(-4))  _
                 +  ( y_zpicxfe(13) *  xgap2(-1) +  y_zpicxfe(14) *  xgap2(-2) +  y_zpicxfe(15) *  xgap2(-3) +  y_zpicxfe(16) *  xgap2(-4))  _
                 + y_zpicxfe(17) * rtr(-1) _
                 + y_zpicxfe(18) * ptr(-1) _
                 + y_zpicxfe(19) * log(qpcnia(-1)/pcnia(-1)) _
                 + y_zpicxfe(20) * log(qpl(-1)/pl(-1)) _
                 + y_zpicxfe(21) * (hlprdt(-1) - 400*huqpct(-1)) _
                 +  ( y_zpicxfe(22) * (lur(-1) - lurnat(-1)) +  y_zpicxfe(23) * (lur(-2) - lurnat(-2)))  


@ %def zpicxfe

<<coefficient y{\_}zpicxfe>>=
y_zpicxfe	23	0.323685055125,-0.00320254773354,0.000957688783119,0.0104690425827,0.0728421201324,0.0485660152256,0.0356099875642,0.0223917457946,-0.0258865827636,-0.000898937891484,-0.00763557124914,0.0018435960169,0.040831246969,-0.0071066127103,-0.0139551213891,0.00345905227284,0.0325774958873,0.488680892526,19.083948146,0.00020472870205,-0.179409868717,-0.0688771440181,0.0401344789058
@ %def y_zpicxfe

\subsection[z2.17 ZPIECI]{z2.17 ZPIECI: Expected value of pieci in the next quarter (MCE exp.)}

<<variable ZPIECI>>=
ZPIECI   = Expected value of pieci in the next quarter                                         
@ %def ZPIECI

<<equation zpieci>>=
zpieci:   zpieci-zpieci_aerr =  ( y_zpieci(1) *  picxfe(-1) +  y_zpieci(2) *  picxfe(-2) +  y_zpieci(3) *  picxfe(-3) +  y_zpieci(4) *  picxfe(-4))  _
                 +  ( y_zpieci(5) *  pieci(-1) +  y_zpieci(6) *  pieci(-2) +  y_zpieci(7) *  pieci(-3) +  y_zpieci(8) *  pieci(-4))  _
                 +  ( y_zpieci(9) *  rffe(-1) +  y_zpieci(10) *  rffe(-2) +  y_zpieci(11) *  rffe(-3) +  y_zpieci(12) *  rffe(-4))  _
                 +  ( y_zpieci(13) *  xgap2(-1) +  y_zpieci(14) *  xgap2(-2) +  y_zpieci(15) *  xgap2(-3) +  y_zpieci(16) *  xgap2(-4))  _
                 + y_zpieci(17) * rtr(-1) _
                 + y_zpieci(18) * ptr(-1) _
                 + y_zpieci(19) * log(qpcnia(-1)/pcnia(-1)) _
                 + y_zpieci(20) * log(qpl(-1)/pl(-1)) _
                 + y_zpieci(21) * (hlprdt(-1) - 400*huqpct(-1)) _
                 +  ( y_zpieci(22) * (lur(-1) - lurnat(-1)) +  y_zpieci(23) * (lur(-2) - lurnat(-2)))  


@ %def zpieci

<<coefficient y{\_}zpieci>>=
y_zpieci	23	-0.0173696976108,-0.00564002523431,0.000750046022225,0.0186445167159,0.222229235683,0.209435405122,0.221364488567,0.0355225552552,-0.0297816947101,-0.00044573477206,-0.0139440534183,0.00328329515168,0.071598879498,-0.0105584507944,-0.0255015980385,0.00616029187126,0.0408881877487,0.31506347548,-3.15596574235,0.000324515649973,0.311448315373,-0.157612577508,0.0855951235653
@ %def y_zpieci

\subsection[z2.18 ZECO]{z2.18 ZECO: Expected growth rate of target nondurables and nonhousing services, for ECO eq (MCE exp.)}

<<variable ZECO>>=
ZECO     = Expected growth rate of target nondurables and nonhousing services, for ECO eq      
@ %def ZECO

<<equation zeco>>=
zeco: zeco-zeco_aerr =  _
                ( y_zeco(1) *  picnia(-1) +  y_zeco(2) *  picnia(-2) +  y_zeco(3) *  picnia(-3) +  y_zeco(4) *  picnia(-4))  _
             +  ( y_zeco(5) *  rffe(-1) +  y_zeco(6) *  rffe(-2) +  y_zeco(7) *  rffe(-3) +  y_zeco(8) *  rffe(-4))  _
             +  ( y_zeco(9) *  xgap2(-1) +  y_zeco(10) *  xgap2(-2) +  y_zeco(11) *  xgap2(-3) +  y_zeco(12) *  xgap2(-4))  _
             + y_zeco(13) * ptr(-1) _
             + y_zeco(14) * rtr(-1) _
             +  ( y_zeco(15) *  yhgap(-1) +  y_zeco(16) *  yhgap(-2) +  y_zeco(17) *  yhgap(-3) +  y_zeco(18) *  yhgap(-4))  _
             +  ( y_zeco(19) *  yhtgap(-1) +  y_zeco(20) *  yhtgap(-2) +  y_zeco(21) *  yhtgap(-3) +  y_zeco(22) *  yhtgap(-4))  _
             +  ( y_zeco(23) *  yhpgap(-1) +  y_zeco(24) *  yhpgap(-2) +  y_zeco(25) *  yhpgap(-3) +  y_zeco(26) *  yhpgap(-4))  _
             + y_zeco(27)* ((hggdpt(-1)/400)) _
             +  ( y_zeco(28)  _
             * (d( log(qeco(-1)), 0, 1 )) +  y_zeco(29)  _
             * (d( log(qeco(-2)), 0, 1 )) +  y_zeco(30)  _
             * (d( log(qeco(-3)), 0, 1 )) +  y_zeco(31)  _
             * (d( log(qeco(-4)), 0, 1 )))  


@ %def zeco

<<coefficient y{\_}zeco>>=
y_zeco	31	-8.302302840394758e-05,-8.481341005195437e-05,-1.070919356458063e-05,9.381494405617248e-05,2.666673325730963e-05,-4.146652869116621e-05,6.35886979919911e-05,6.46447465153467e-06,-0.0005276983695273098,0.0002596876952964582,0.0001475449058191307,-0.0001115121659935083,8.473068796425593e-05,-5.525337720962991e-05,-0.0004452896985031861,0.0002430553531067072,0.0002780867885656984,-4.282753034846671e-05,-7.101434541988507e-06,1.188495764798803e-06,5.447418407567185e-05,-5.538534406713904e-05,0.0001733551900672583,-0.0001988245316507533,-3.680100973102832e-05,-4.202136975618394e-05,0.4530430376151391,0.05203955961144264,0.01891764694000759,0.002056184123840021,0.01297131744548946
@ %def y_zeco

\subsection[z2.19 ZECD]{z2.19 ZECD: Expected growth rate of target durable consumption, for ECD eq. (MCE exp.)}

<<variable ZECD>>=
ZECD     = Expected growth rate of target durable consumption, for ECD eq.                     
@ %def ZECD

<<equation zecd>>=
zecd: zecd-zecd_aerr =  ( y_zecd(1) *  picnia(-1) +  y_zecd(2) *  picnia(-2) +  y_zecd(3) *  picnia(-3) +  y_zecd(4) *  picnia(-4))  _
               +  ( y_zecd(5) *  rffe(-1) +  y_zecd(6) *  rffe(-2) +  y_zecd(7) *  rffe(-3) +  y_zecd(8) *  rffe(-4))  _
               +  ( y_zecd(9) *  xgap2(-1) +  y_zecd(10) *  xgap2(-2) +  y_zecd(11) *  xgap2(-3) +  y_zecd(12) *  xgap2(-4))  _
               + y_zecd(13) * ptr(-1) _
               + y_zecd(14) * rtr(-1) _
               +  ( y_zecd(15) *  yhgap(-1) +  y_zecd(16) *  yhgap(-2) +  y_zecd(17) *  yhgap(-3) +  y_zecd(18) *  yhgap(-4))  _
               +  ( y_zecd(19) *  yhtgap(-1) +  y_zecd(20) *  yhtgap(-2) +  y_zecd(21) *  yhtgap(-3) +  y_zecd(22) *  yhtgap(-4))  _
               +  ( y_zecd(23) *  yhpgap(-1) +  y_zecd(24) *  yhpgap(-2) +  y_zecd(25) *  yhpgap(-3) +  y_zecd(26) *  yhpgap(-4))  _
               + y_zecd(27)* (hggdpt(-1)/400) _
               + y_zecd(28)* (hgpcdr(-1)/400) _
               +  ( y_zecd(29) *  d( log(qecd(-1)), 0, 1 ) +  y_zecd(30) *  d( log(qecd(-2)), 0, 1 ) +  y_zecd(31) *  d( log(qecd(-3)), 0, 1 ) +  y_zecd(32) *  d( log(qecd(-4)), 0, 1 ))  


@ %def zecd

<<coefficient y{\_}zecd>>=
y_zecd	32	-0.0005835440697737298,-0.0004890487384829661,-0.0003178601486946526,-1.152735487341427e-05,-0.001521689633538677,0.00184186662931939,-0.0003337931272148391,0.0005978178795171626,-7.860979155419116e-05,-0.0002718183593141809,-1.084561695508665e-05,-0.0002840099502079114,0.001401980311824591,-0.0005842017480832114,-1.058568693474449e-05,0.0001210825498845803,0.000150192115996216,0.0001272419141098429,-6.044841756325178e-05,3.615855415569782e-05,0.0001442834347338589,-2.157822874062484e-05,0.0002542858483924859,-0.0001442014800476188,0.0001210823110031528,8.639803055065837e-05,1.01167981819333,-0.7327643994675091,0.02550437562787651,0.02308257133053724,-0.006136185825140921,0.004470983123513018
@ %def y_zecd

\subsection[z2.20 ZGAPC2]{z2.20 ZGAPC2: Expected output gap, for ECD eq. (MCE exp.)}

<<variable ZGAPC2>>=
ZGAPC2   = Expected output gap, for ECD eq.                                                    
@ %def ZGAPC2

<<equation zgapc2>>=
zgapc2:  zgapc2-zgapc2_aerr =  ( y_zgapc2(1) *  picnia(-1) +  y_zgapc2(2) *  picnia(-2) +  y_zgapc2(3) *  picnia(-3) +  y_zgapc2(4) *  picnia(-4))  _
               +  ( y_zgapc2(5) *  rffe(-1) +  y_zgapc2(6) *  rffe(-2) +  y_zgapc2(7) *  rffe(-3) +  y_zgapc2(8) *  rffe(-4))  _
               +  ( y_zgapc2(9) *  xgap2(-1) +  y_zgapc2(10) *  xgap2(-2) +  y_zgapc2(11) *  xgap2(-3) +  y_zgapc2(12) *  xgap2(-4))  _
               + y_zgapc2(13) * ptr(-1) _
               + y_zgapc2(14) * rtr(-1) 


@ %def zgapc2

<<coefficient y{\_}zgapc2>>=
y_zgapc2	14	-0.01642348362157579,-0.003669559326500591,-0.008031103190068016,0.004102054411065602,-0.04358920333330677,0.01116763018811085,0.01779952199271192,-0.0003479691800762343,0.2140118932122804,-0.08074468803548052,-0.02122902683008941,-0.01224349536823687,0.02402209172707994,0.01497002033255295
@ %def y_zgapc2

\subsection[z2.21 ZEH]{z2.21 ZEH: Expected growth rate of target residential investment, for EH eq. (MCE exp.)}

<<variable ZEH>>=
ZEH      = Expected growth rate of target residential investment, for EH eq.                   
@ %def ZEH

<<equation zeh>>=
zeh: zeh-zeh_aerr =  _
                ( y_zeh(1) *  picnia(-1) +  y_zeh(2) *  picnia(-2) +  y_zeh(3) *  picnia(-3) +  y_zeh(4) *  picnia(-4))  _
             +  ( y_zeh(5) *  rffe(-1) +  y_zeh(6) *  rffe(-2) +  y_zeh(7) *  rffe(-3) +  y_zeh(8) *  rffe(-4))  _
             +  ( y_zeh(9) *  xgap2(-1) +  y_zeh(10) *  xgap2(-2) +  y_zeh(11) *  xgap2(-3) +  y_zeh(12) *  xgap2(-4))  _
             + y_zeh(13) * ptr(-1) _
             + y_zeh(14) * rtr(-1) _
             +  ( y_zeh(15) *  yhgap(-1) +  y_zeh(16) *  yhgap(-2) +  y_zeh(17) *  yhgap(-3) +  y_zeh(18) *  yhgap(-4))  _
             +  ( y_zeh(19) *  yhtgap(-1) +  y_zeh(20) *  yhtgap(-2) +  y_zeh(21) *  yhtgap(-3) +  y_zeh(22) *  yhtgap(-4))  _
             +  ( y_zeh(23) *  yhpgap(-1) +  y_zeh(24) *  yhpgap(-2) +  y_zeh(25) *  yhpgap(-3) +  y_zeh(26) *  yhpgap(-4))  _
             + y_zeh(27)* (hggdpt(-1)/400) _
             +  ( y_zeh(28) *  d( log(qeh(-1)), 0, 1 ) +  y_zeh(29) *  d( log(qeh(-2)), 0, 1 ) +  y_zeh(30) *  d( log(qeh(-3)), 0, 1 ) +  y_zeh(31) *  d( log(qeh(-4)), 0, 1 ))  


@ %def zeh

<<coefficient y{\_}zeh>>=
y_zeh	31	-0.0001475636416872941,-3.032365273125124e-05,-4.473855969321594e-06,1.840159727000201e-05,8.456307897094206e-05,9.927860073304034e-05,3.541632402295193e-05,4.665715075036469e-05,9.316588937069824e-05,6.8548232500974e-05,-5.099498096945265e-05,-0.000103438760109973,0.0001639595531178947,-0.0003714748285059059,0.0002008531961477977,6.39494543366261e-05,-8.196341624496077e-06,-6.058743069846966e-06,1.637939756509385e-05,2.896721986467348e-05,4.939661317376607e-05,3.622641327648261e-05,-2.555313594320782e-05,1.794687765262662e-05,5.861539706634113e-05,3.623689151897084e-05,0.4258722180681525,0.006476061849341104,-0.0001644897248144963,-0.003638825789011507,-0.002284721632248121
@ %def y_zeh

\subsection[z2.22 ZLHP]{z2.22 ZLHP: Expected growth rate of target aggregate hours (MCE exp.)}

<<variable ZLHP>>=
ZLHP     = Expected growth rate of target aggregate hours                                      
@ %def ZLHP

<<equation zlhp>>=
zlhp:  zlhp-zlhp_aerr =  ( y_zlhp(1) *  picnia(-1) +  y_zlhp(2) *  picnia(-2) +  y_zlhp(3) *  picnia(-3) +  y_zlhp(4) *  picnia(-4))  _
                +  ( y_zlhp(5) *  rffe(-1) +  y_zlhp(6) *  rffe(-2) +  y_zlhp(7) *  rffe(-3) +  y_zlhp(8) *  rffe(-4))  _
                + y_zlhp(9) * rtr(-1) _
                + y_zlhp(10) * ptr(-1) _
                +  ( y_zlhp(11) *  xgap(-1) +  y_zlhp(12) *  xgap(-2) +  y_zlhp(13) *  xgap(-3) +  y_zlhp(14) *  xgap(-4))  _
                + y_zlhp(15) * (d( log(xgo(-1)), 0, 1 ) - (d( log(lprdt(-1)), 0, 1 ))) _
                + y_zlhp(16) * ((hlept(-1) - hqlww(-1))/400) 


@ %def zlhp

<<coefficient y{\_}zlhp>>=
y_zlhp	16	-0.0002522439372141123,-5.098270125007645e-05,-0.0002552621374828649,3.981607430228377e-05,-0.001009257225067205,2.674066965674714e-05,0.0007518371210651708,-8.711379381808237e-05,0.0003177932281634985,0.0005186727016447569,-0.0001129490166435928,0.0002104324849965744,-3.807934826636984e-05,-0.0003375008221723389,0.1952473726812134,0.655629670225322
@ %def y_zlhp

\subsection[z2.23 ZVPD]{z2.23 ZVPD: Expected growth rate of capital-output ratio, for EPD (MCE exp.)}

<<variable ZVPD>>=
ZVPD     = Expected growth rate of capital-output ratio, for EPD                               
@ %def ZVPD

<<equation zvpd>>=
zvpd:  zvpd-zvpd_aerr = y_zvpd(1) _
                +  ( y_zvpd(2) *  picnia(-1) +  y_zvpd(3) *  picnia(-2) +  y_zvpd(4) *  picnia(-3) +  y_zvpd(5) *  picnia(-4))  _
                +  ( y_zvpd(6) *  rffe(-1) +  y_zvpd(7) *  rffe(-2) +  y_zvpd(8) *  rffe(-3) +  y_zvpd(9) *  rffe(-4))  _
                + y_zvpd(10) * rtr(-1) _
                + y_zvpd(11) * ptr(-1) _
                +  ( y_zvpd(12) *  xgap(-1) +  y_zvpd(13) *  xgap(-2) +  y_zvpd(14) *  xgap(-3) +  y_zvpd(15) *  xgap(-4))  _
                +  ( y_zvpd(16) *  d( log(xbo(-1)), 0, 1 ) +  y_zvpd(17) *  d( log(xbo(-2)), 0, 1 ) +  y_zvpd(18) *  d( log(xbo(-3)), 0, 1 ) +  y_zvpd(19) *  d( log(xbo(-4)), 0, 1 ))  _
                +  ( y_zvpd(20) *  d( log(vpd(-1)), 0, 1 ) +  y_zvpd(21) *  d( log(vpd(-2)), 0, 1 ) +  y_zvpd(22) *  d( log(vpd(-3)), 0, 1 ) +  y_zvpd(23) *  d( log(vpd(-4)), 0, 1 ))  _
                + y_zvpd(24) * hgvpd(-1) 


@ %def zvpd

<<coefficient y{\_}zvpd>>=
y_zvpd	24	-3.503545878896081e-16,-0.0002563318120287816,-0.0003053817493858787,0.0002754650071985202,0.0003443248552390073,-0.0009156992615684974,0.001067085042396023,-0.0007208701930641986,0.0006556825318280694,-8.619811959127685e-05,-5.807630102293225e-05,-0.000903857496805948,7.756814130764826e-05,0.000139631583283988,0.0003323386839790366,2.317621077576443e-15,2.751400070102722e-15,-4.986480534038096e-15,4.24099392879384e-16,-0.02775368418680135,-0.006026513888356844,0.008387752461416915,0.01665577139372101,0.2393643921387166
@ %def y_zvpd

\subsection[z2.24 ZVPI]{z2.24 ZVPI: Expected growth rate of capital-output ratio, for EPI (MCE exp.)}

<<variable ZVPI>>=
ZVPI     = Expected growth rate of capital-output ratio, for EPI                               
@ %def ZVPI

<<equation zvpi>>=
zvpi:  zvpi-zvpi_aerr =  ( y_zvpi(1) *  picnia(-1) +  y_zvpi(2) *  picnia(-2) +  y_zvpi(3) *  picnia(-3) +  y_zvpi(4) *  picnia(-4))  _
                +  ( y_zvpi(5) *  rffe(-1) +  y_zvpi(6) *  rffe(-2) +  y_zvpi(7) *  rffe(-3) +  y_zvpi(8) *  rffe(-4))  _
                + y_zvpi(9) * rtr(-1) _
                + y_zvpi(10) * ptr(-1) _
                +  ( y_zvpi(11) *  xgap(-1) +  y_zvpi(12) *  xgap(-2) +  y_zvpi(13) *  xgap(-3) +  y_zvpi(14) *  xgap(-4))  _
                +  ( y_zvpi(15) *  d( log(xbo(-1)), 0, 1 ) +  y_zvpi(16) *  d( log(xbo(-2)), 0, 1 ) +  y_zvpi(17) *  d( log(xbo(-3)), 0, 1 ) +  y_zvpi(18) *  d( log(xbo(-4)), 0, 1 ))  _
                +  ( y_zvpi(19) *  d( log(vpi(-1)), 0, 1 ) +  y_zvpi(20) *  d( log(vpi(-2)), 0, 1 ) +  y_zvpi(21) *  d( log(vpi(-3)), 0, 1 ) +  y_zvpi(22) *  d( log(vpi(-4)), 0, 1 ))  _
                + y_zvpi(23) * hgvpi(-1) 


@ %def zvpi

<<coefficient y{\_}zvpi>>=
y_zvpi	23	3.869791235963136e-05,3.80256114092935e-06,2.612181181174604e-05,2.057197909940212e-05,-2.696819873236014e-05,5.156218466601069e-05,-6.82913490848621e-05,2.672686988069912e-05,1.697049327051405e-05,-8.919426441171094e-05,-0.0001426651778367424,6.899519472206095e-06,4.9497539040235e-05,1.69794066300211e-05,-3.586377535367116e-16,2.633512859614165e-15,-5.059917772377164e-16,-2.838076327300057e-17,-0.0009833873502351542,0.0004719444552399954,0.0005424356956833908,0.000511922034569498,0.1455171872633132
@ %def y_zvpi

\subsection[z2.25 ZVPS]{z2.25 ZVPS: Expected growth rate of des. capital-output ratio, for EPS eq. (MCE exp.)}

<<variable ZVPS>>=
ZVPS     = Expected growth rate of des. capital-output ratio, for EPS eq.                      
@ %def ZVPS

<<equation zvps>>=
zvps:  zvps-zvps_aerr =  ( y_zvps(1) *  picnia(-1) +  y_zvps(2) *  picnia(-2) +  y_zvps(3) *  picnia(-3) +  y_zvps(4) *  picnia(-4))  _
                +  ( y_zvps(5) *  rffe(-1) +  y_zvps(6) *  rffe(-2) +  y_zvps(7) *  rffe(-3) +  y_zvps(8) *  rffe(-4))  _
                + y_zvps(9) * rtr(-1) _
                + y_zvps(10) * ptr(-1) _
                +  ( y_zvps(11) *  xgap(-1) +  y_zvps(12) *  xgap(-2) +  y_zvps(13) *  xgap(-3) +  y_zvps(14) *  xgap(-4))  _
                +  ( y_zvps(15) *  d( log(xbo(-1)), 0, 1 ) +  y_zvps(16) *  d( log(xbo(-2)), 0, 1 ) +  y_zvps(17) *  d( log(xbo(-3)), 0, 1 ) +  y_zvps(18) *  d( log(xbo(-4)), 0, 1 ))  _
                +  ( y_zvps(19) *  d( log(vps(-1)), 0, 1 ) +  y_zvps(20) *  d( log(vps(-2)), 0, 1 ) +  y_zvps(21) *  d( log(vps(-3)), 0, 1 ) +  y_zvps(22) *  d( log(vps(-4)), 0, 1 ))  _
                + y_zvps(23) * hgvps(-1) 


@ %def zvps

<<coefficient y{\_}zvps>>=
y_zvps	23	0.0007852314783589356,-0.0001325502846474631,0.0001060837434901873,0.000103926092617813,-0.0005253836323690961,0.0004414151794377316,-0.0002135691581102569,2.440316421598072e-05,0.0002731344468256556,-0.0008626910298194385,0.000747413447662811,-0.002477752703071512,0.001165044197493053,-8.29368767503753e-05,8.747262281383209e-15,2.29917926918378e-14,-3.572207369395991e-14,-2.016385657300802e-15,0.01778407608243148,0.02166785661358485,0.02506234212593228,0.01092265671322531,-3.148169696328744e-16
@ %def y_zvps

\subsection[z2.26 ZXBD]{z2.26 ZXBD: Expected growth rate of buisiness output for EPD (MCE exp.)}

<<variable ZXBD>>=
ZXBD     = Expected growth rate of buisiness output for EPD                                    
@ %def ZXBD

<<equation zxbd>>=
zxbd:  zxbd-zxbd_aerr = y_zxbd(1) _
              +  ( y_zxbd(2) *  picnia(-1) +  y_zxbd(3) *  picnia(-2) +  y_zxbd(4) *  picnia(-3) +  y_zxbd(5) *  picnia(-4))  _
              +  ( y_zxbd(6) *  rffe(-1) +  y_zxbd(7) *  rffe(-2) +  y_zxbd(8) *  rffe(-3) +  y_zxbd(9) *  rffe(-4))  _
              + y_zxbd(10) * rtr(-1) _
              + y_zxbd(11) * ptr(-1) _
              +  ( y_zxbd(12) *  xgap(-1) +  y_zxbd(13) *  xgap(-2) +  y_zxbd(14) *  xgap(-3) +  y_zxbd(15) *  xgap(-4))  _
              +  ( y_zxbd(16) *  d( log(xbo(-1)), 0, 1 ) +  y_zxbd(17) *  d( log(xbo(-2)), 0, 1 ) +  y_zxbd(18) *  d( log(xbo(-3)), 0, 1 ) +  y_zxbd(19) *  d( log(xbo(-4)), 0, 1 ))  _
              +  ( y_zxbd(20) *  d( log(vpd(-1)), 0, 1 ) +  y_zxbd(21) *  d( log(vpd(-2)), 0, 1 ) +  y_zxbd(22) *  d( log(vpd(-3)), 0, 1 ) +  y_zxbd(23) *  d( log(vpd(-4)), 0, 1 ))  _
              + y_zxbd(24) * hgx(-1)/400 


@ %def zxbd

<<coefficient y{\_}zxbd>>=
y_zxbd	24	-2.515799209424174e-16,-0.0001835522663957102,-9.20694428089123e-05,-0.0001690594563728659,1.881158548409918e-05,-0.0007423903856100813,4.157494304754994e-05,0.0005193380452609865,-0.0001536376069412482,0.0003351150042428557,0.0004258695800933443,3.687820634848689e-05,0.0001399557850856637,2.133097877542922e-05,-4.574827267682607e-05,0.1763937105515476,0.02577427100107783,-0.004208529285013731,-0.02232851900795504,-1.893230768069613e-16,-7.540408232309855e-18,2.126047832013436e-17,1.130814579006665e-16,0.009793161070556688
@ %def y_zxbd

\subsection[z2.27 ZXBI]{z2.27 ZXBI: Expected growth rate of business output, for EPI (MCE exp.)}

<<variable ZXBI>>=
ZXBI     = Expected growth rate of business output, for EPI                                    
@ %def ZXBI

<<equation zxbi>>=
zxbi:  zxbi-zxbi_aerr =  _
                 ( y_zxbi(1) *  picnia(-1) +  y_zxbi(2) *  picnia(-2) +  y_zxbi(3) *  picnia(-3) +  y_zxbi(4) *  picnia(-4))  _
              +  ( y_zxbi(5) *  rffe(-1) +  y_zxbi(6) *  rffe(-2) +  y_zxbi(7) *  rffe(-3) +  y_zxbi(8) *  rffe(-4))  _
              + y_zxbi(9) * rtr(-1) _
              + y_zxbi(10) * ptr(-1) _
              +  ( y_zxbi(11) *  xgap(-1) +  y_zxbi(12) *  xgap(-2) +  y_zxbi(13) *  xgap(-3) +  y_zxbi(14) *  xgap(-4))  _
              +  ( y_zxbi(15) *  d( log(xbo(-1)), 0, 1 ) +  y_zxbi(16) *  d( log(xbo(-2)), 0, 1 ) +  y_zxbi(17) *  d( log(xbo(-3)), 0, 1 ) +  y_zxbi(18) *  d( log(xbo(-4)), 0, 1 ))  _
              +  ( y_zxbi(19) *  d( log(vpi(-1)), 0, 1 ) +  y_zxbi(20) *  d( log(vpi(-2)), 0, 1 ) +  y_zxbi(21) *  d( log(vpi(-3)), 0, 1 ) +  y_zxbi(22) *  d( log(vpi(-4)), 0, 1 ))  _
              + y_zxbi(23) * hgx(-1)/400 


@ %def zxbi

<<coefficient y{\_}zxbi>>=
y_zxbi	23	-3.907288119414607e-05,-1.536565753314579e-05,-1.048653204032815e-05,1.111064792542002e-06,-5.01258122791435e-05,1.970572371233756e-05,1.971978476253992e-05,8.993821549944538e-06,1.706482254328246e-06,6.381400597507644e-05,-0.0001716577651069273,0.000123207872571336,-1.386238400704046e-05,-6.492569488328591e-06,0.01662528927858757,0.001704406100119445,-0.0009230524058842151,-0.002154432999851102,4.582306308652706e-17,7.288857190912528e-17,1.433400988271179e-16,7.129707850725668e-17,0.1261667302346462
@ %def y_zxbi

\subsection[z2.28 ZXBS]{z2.28 ZXBS: Expected growth rate of business output, for EPS (MCE exp.)}

<<variable ZXBS>>=
ZXBS     = Expected growth rate of business output, for EPS                                    
@ %def ZXBS

<<equation zxbs>>=
zxbs:  zxbs-zxbs_aerr =  _
                 ( y_zxbs(1) *  picnia(-1) +  y_zxbs(2) *  picnia(-2) +  y_zxbs(3) *  picnia(-3) +  y_zxbs(4) *  picnia(-4))  _
              +  ( y_zxbs(5) *  rffe(-1) +  y_zxbs(6) *  rffe(-2) +  y_zxbs(7) *  rffe(-3) +  y_zxbs(8) *  rffe(-4))  _
              + y_zxbs(9) * rtr(-1) _
              + y_zxbs(10) * ptr(-1) _
              +  ( y_zxbs(11) *  xgap(-1) +  y_zxbs(12) *  xgap(-2) +  y_zxbs(13) *  xgap(-3) +  y_zxbs(14) *  xgap(-4))  _
              +  ( y_zxbs(15) *  d( log(xbo(-1)), 0, 1 ) +  y_zxbs(16) *  d( log(xbo(-2)), 0, 1 ) +  y_zxbs(17) *  d( log(xbo(-3)), 0, 1 ) +  y_zxbs(18) *  d( log(xbo(-4)), 0, 1 ))  _
              +  ( y_zxbs(19) *  d( log(vps(-1)), 0, 1 ) +  y_zxbs(20) *  d( log(vps(-2)), 0, 1 ) +  y_zxbs(21) *  d( log(vps(-3)), 0, 1 ) +  y_zxbs(22) *  d( log(vps(-4)), 0, 1 ))  _
              + y_zxbs(23) * hgx(-1)/400 


@ %def zxbs

<<coefficient y{\_}zxbs>>=
y_zxbs	23	-0.0001994456999380124,-7.214041996312615e-05,-7.99329702758048e-05,2.211360307802113e-05,-0.0004937346599053793,0.0001061055666343529,0.0001771185963814947,1.38884021863751e-05,0.0001966220947031431,0.0003294054870989447,-0.0001649181898508638,0.0002722671940195421,-5.386419663495043e-05,-6.491326259774833e-05,0.08377251816879529,0.01005202510305162,-0.003637129535036962,-0.01071732647409602,-3.505833175821191e-17,-8.482814157126555e-17,3.128540790492993e-17,2.645699002714624e-18,0.05179332719960464
@ %def y_zxbs

\subsection[z2.29 ZDIVGR]{z2.29 ZDIVGR: Expected growth rate of real dividends, for WPSN eq. (MCE exp.)}

<<variable ZDIVGR>>=
ZDIVGR   = Expected growth rate of real dividends, for WPSN eq.                                
@ %def ZDIVGR

<<equation zdivgr>>=
zdivgr: zdivgr-zdivgr_aerr = y_zdivgr(1) _
          +  ( y_zdivgr(2) *  picnia +  y_zdivgr(3) *  picnia(-1) +  y_zdivgr(4) *  picnia(-2) +  y_zdivgr(5) *  picnia(-3))  _
          +  ( y_zdivgr(6) *  rffe +  y_zdivgr(7) *  rffe(-1) +  y_zdivgr(8) *  rffe(-2) +  y_zdivgr(9) *  rffe(-3))  _
          + y_zdivgr(10) * rtr _
          + y_zdivgr(11) * ptr _
          +  ( y_zdivgr(12) *  xgap +  y_zdivgr(13) *  xgap(-1) +  y_zdivgr(14) *  xgap(-2) +  y_zdivgr(15) *  xgap(-3))  _
          +  ( y_zdivgr(16) *  (400*d( log((ynicpn-tfcin-tscin)*.5/(.01*pxg)), 0, 1 )) +  y_zdivgr(17) *  (400*d( log((ynicpn(-1)-tfcin(-1)-tscin(-1))*.5/(.01*pxg(-1))), 0, 1 )) +  y_zdivgr(18) *  (400*d( log((ynicpn(-2)-tfcin(-2)-tscin(-2))*.5/(.01*pxg(-2))), 0, 1 )) +  y_zdivgr(19) *  (400*d( log((ynicpn(-3)-tfcin(-3)-tscin(-3))*.5/(.01*pxg(-3))), 0, 1 )))  _
          + y_zdivgr(20) * hgx 


@ %def zdivgr

<<coefficient y{\_}zdivgr>>=
y_zdivgr	20	1.511071172206618e-15,-0.009111480239164081,0.03183741780107196,0.02833747937535333,0.02576703619990779,-0.07315819692760012,0.02061292879046827,-0.08150938079058738,0.04465438088567916,0.08940026804215884,-0.07683045313697864,-0.3926039436043125,0.233750687953166,0.01896589096946814,0.06606284336737173,0.01491188799731325,0.002288670073748218,0.002126749199528997,-0.0005223331178720957,0.9811950258472805
@ %def y_zdivgr

\subsection[z2.30 ZYNID]{z2.30 ZYNID: Expected rate of growth of target real dividends, for YNIDN eq. (MCE exp.)}

<<variable ZYNID>>=
ZYNID    = Expected rate of growth of target real dividends, for YNIDN eq.                      
@ %def ZYNID

<<equation zynid>>=
zynid: zynid - zynid_aerr = y_zynid(1) _
                   +  ( y_zynid(2) *  picnia(-1) +  y_zynid(3) *  picnia(-2) +  y_zynid(4) *  picnia(-3) +  y_zynid(5) *  picnia(-4))  _
                   +  ( y_zynid(6) *  rffe(-1) +  y_zynid(7) *  rffe(-2) +  y_zynid(8) *  rffe(-3) +  y_zynid(9) *  rffe(-4))  _
                   + y_zynid(10) * rtr(-1) _
                   + y_zynid(11) * ptr(-1) _
                   +  ( y_zynid(12) *  xgap(-1) +  y_zynid(13) *  xgap(-2) +  y_zynid(14) *  xgap(-3) +  y_zynid(15) *  xgap(-4))  _
                   +  ( y_zynid(16) *  d( log(qynidn(-1)/pxb(-1)), 0, 1 ) +  y_zynid(17) *  d( log(qynidn(-2)/pxb(-2)), 0, 1 ) +  y_zynid(18) *  d( log(qynidn(-3)/pxb(-3)), 0, 1 ) +  y_zynid(19) *  d( log(qynidn(-4)/pxb(-4)), 0, 1 ))  _
                   + y_zynid(20) * (hggdpt(-1)/400) 


@ %def zynid

<<coefficient y{\_}zynid>>=
y_zynid	20	-5.177745029596233e-16,3.507527558415562e-05,0.0004354171509883335,0.0003765833780090754,0.0001552050207157448,0.0001868491088457782,-0.0005011231894986071,-0.0006498379828916684,0.0002719099753461783,0.0006922020881988317,-0.001002280825297383,-0.004574540981564301,0.001989397878934358,5.635745258239554e-05,0.001131064420842775,0.002156744713645877,0.0117354367680391,0.01196665382608065,-0.003884428431816845,1.114427266866421
@ %def y_zynid

\subsection[z2.31 ZYH]{z2.31 ZYH: Expected level of real after-tax household income, for QEC eq. (MCE exp.)}

<<variable ZYH>>=
ZYH      = Expected level of real after-tax household income, for QEC eq.                      
@ %def ZYH

<<equation zyh>>=
zyh: log(zyh) - zyh_aerr =  ( y_zyh(1) *  picnia +  y_zyh(2) *  picnia(-1) +  y_zyh(3) *  picnia(-2) +  y_zyh(4) *  picnia(-3))  _
                    +  ( y_zyh(5) *  rffe +  y_zyh(6) *  rffe(-1) +  y_zyh(7) *  rffe(-2) +  y_zyh(8) *  rffe(-3))  _
                    +  ( y_zyh(9) *  xgap2 +  y_zyh(10) *  xgap2(-1) +  y_zyh(11) *  xgap2(-2) +  y_zyh(12) *  xgap2(-3))  _
                    + y_zyh(13) * ptr _
                    + y_zyh(14) * rtr _
                    +  ( y_zyh(15) *  yhgap +  y_zyh(16) *  yhgap(-1) +  y_zyh(17) *  yhgap(-2) +  y_zyh(18) *  yhgap(-3))  _
                    + log(zyhst*xgdpt) 


@ %def zyh

<<coefficient y{\_}zyh>>=
y_zyh	18	-0.0002301813961999326,0.0007292083597749006,0.0006217471253906824,0.0005934715578397723,-0.001846529365389524,0.0002904997779523631,-0.0004988965683240191,0.0003313572719011359,0.001607222160364852,0.003005871788107462,0.0006412116241861791,-0.001437783206375028,-0.001714245646789469,0.00172356888383944,0.004606188983936458,0.0009177700125335313,0.0001079871640801749,-0.0002574814023531273
@ %def y_zyh

\subsection[z2.32 ZYHP]{z2.32 ZYHP: Expected level of real after-tax property income, for QEC eq. (MCE exp.)}

<<variable ZYHP>>=
ZYHP     = Expected level of real after-tax property income, for QEC eq.                       
@ %def ZYHP

<<equation zyhp>>=
zyhp: log(zyhp) - zyhp_aerr =  ( y_zyhp(1) *  picnia +  y_zyhp(2) *  picnia(-1) +  y_zyhp(3) *  picnia(-2) +  y_zyhp(4) *  picnia(-3))  _
                      +  ( y_zyhp(5) *  rffe +  y_zyhp(6) *  rffe(-1) +  y_zyhp(7) *  rffe(-2) +  y_zyhp(8) *  rffe(-3))  _
                      +  ( y_zyhp(9) *  xgap2 +  y_zyhp(10) *  xgap2(-1) +  y_zyhp(11) *  xgap2(-2) +  y_zyhp(12) *  xgap2(-3))  _
                      + y_zyhp(13) * ptr _
                      + y_zyhp(14) * rtr _
                      +  ( y_zyhp(15) *  yhgap +  y_zyhp(16) *  yhgap(-1) +  y_zyhp(17) *  yhgap(-2) +  y_zyhp(18) *  yhgap(-3))  _
                      +  ( y_zyhp(19) *  yhpgap +  y_zyhp(20) *  yhpgap(-1) +  y_zyhp(21) *  yhpgap(-2) +  y_zyhp(22) *  yhpgap(-3))  _
                      + log(zyhpst*zyhst*xgdpt) 


@ %def zyhp

<<coefficient y{\_}zyhp>>=
y_zyhp	22	0.000384467702497963,0.001205361597423436,0.0009620980096161766,0.0006968834502953735,-0.001446328874129471,-0.0003381447822719294,-0.0004834707080703563,8.814369039361228e-05,-0.001116894404641339,0.003967303705819658,0.001191690024290932,-0.001286575565604035,-0.003248810759754601,0.002179800674018414,0.005333773189022442,0.0004733585214143916,0.0003706287126449093,-0.0006492148648872271,0.002111871292719382,0.0001559524347876397,-0.0003118556880320512,-0.0002618870733055589
@ %def y_zyhp

\subsection[z2.33 ZYHT]{z2.33 ZYHT: Expected level of real transfer income, for QEC eq. (MCE exp.)}

<<variable ZYHT>>=
ZYHT     = Expected level of real transfer income, for QEC eq.                                 
@ %def ZYHT

<<equation zyht>>=
zyht: log(zyht) - zyht_aerr  =  ( y_zyht(1) *  picnia +  y_zyht(2) *  picnia(-1) +  y_zyht(3) *  picnia(-2) +  y_zyht(4) *  picnia(-3))  _
                       +  ( y_zyht(5) *  rffe +  y_zyht(6) *  rffe(-1) +  y_zyht(7) *  rffe(-2) +  y_zyht(8) *  rffe(-3))  _
                       +  ( y_zyht(9) *  xgap2 +  y_zyht(10) *  xgap2(-1) +  y_zyht(11) *  xgap2(-2) +  y_zyht(12) *  xgap2(-3))  _
                       + y_zyht(13) * ptr _
                       + y_zyht(14) * rtr _
                       +  ( y_zyht(15) *  yhgap +  y_zyht(16) *  yhgap(-1) +  y_zyht(17) *  yhgap(-2) +  y_zyht(18) *  yhgap(-3))  _
                       +  ( y_zyht(19) *  yhtgap +  y_zyht(20) *  yhtgap(-1) +  y_zyht(21) *  yhtgap(-2) +  y_zyht(22) *  yhtgap(-3))  _
                       + log(zyhtst*zyhst*xgdpt) 


@ %def zyht

<<coefficient y{\_}zyht>>=
y_zyht	22	-0.0005375756842287296,0.0004256398977551294,0.000429593178783961,0.0003414271771936359,-0.002079606052272035,0.0007399687901779992,-0.001298198841740049,0.0002382995866672766,0.001674879978319641,0.004300603149249205,0.002369712661277097,-0.000203171612370001,-0.0006590845693970714,0.002399536517037755,0.003021124416531466,0.0007937710620113669,0.0004202153294465729,-7.565678056110441e-05,0.002106148502191563,0.0004841065645051049,-8.222415497288445e-05,0.0003093558097299066
@ %def y_zyht

\subsection[z2.37 HGYNID]{z2.37 HGYNID: Growth rate of real after-tax corporate profits}

<<variable HGYNID>>=
HGYNID   = Growth rate of real after-tax corporate profits                                               
@ %def HGYNID

<<equation hgynid>>=
hgynid: hgynid - hgynid_aerr = 400*d( log((ynicpn-tfcin-tscin)*.5/pxg), 0, 1 ) 


@ %def hgynid


\chapter{Speculation on What We Can Do With This}

So far the Fed's model is just a set of simultaneous equations that have been estimated from the data supplied.  We assume that there is an underlying structure to the model that represents
the \href{https://www.federalreserve.gov/monetarypolicy/fomc.htm}
         {Federal Open Market Committee (FOMC)}
concerns in setting monetary policy.  They use Eview to analyze consequences for various actions that they could take.

One reason for replicating the FRB/US Model in R would be that anyone could then perform similiar analyses.  Another reason is that the replication process provides an opportunity to look closely at the details and learn how the economy works.

Noah Smith, on
the \href{http://noahpinionblog.blogspot.com/2014/04/the-foxy-fed_7.html}{Noahpinion blog},
announced the Fed's release of the model and discusses the significance.
\begin{quote}
A few days ago, the Fed released its workhorse model of the macroeconomy - the FRB/US model - to the public. The model had been only semi-private before, since the Fed would send it to interested researchers, and revealed some information about it to the general public. But now the model is fully public. How should we interpret that action?
\end{quote}

After talking about why they might not want to release the model, he follows that with this:
\begin{quote}
So if my guess is right, the Fed's publication of FRB/US indicates that whatever embarrassment existed is now essentially gone. That is kind of interesting.
\end{quote}

This is suggesting that there is a lot of room to modernize the model.  That's where an FRBUS R package for the R-project community might come in.  I'm an amateur at all of this, so I'll have to see if I can find people who will want to work with me on it.

Stephen Williamson also \href{http://newmonetarism.blogspot.com/2014/04/the-frbus-model-and-inflation.html}{commented on the release of the model}.
\begin{quote}
The FRB/US model, used by the Board for forecasting and policy analysis, is the culmination of perhaps 45 years of work. Various generations of management at the Board have directed some smart people to work on this thing, and you can feel the weight of the large quantity of quality-adjusted hours of work that went into putting it together. But is it any good? Could the Board do just as well or better at forecasting with a much simpler tool? Could a well-educated and well-informed economist do a respectable job of central banking without ever looking at the output of the FRB/US model?
\end{quote}

What's interesting to me about this statement is that in the early 70's I was a programmer at the San Francisco Federal Reserve bank.  One week I spent a few hours helping another programmer find some bugs in code that he had written to do symbolic differentiation.  Apparently that code was related to this model.  You have to realize that personal computers didn't come until the 1980's and in those days we were running batch jobs on main frames.  That started my lifelong interest in econometrics and macro-economics, even though I've never had an opportunity to do anything with it.


\begin{appendices}

\chapter{Exogenous Variables}

<<variable D01Q4>>=
D01Q4    = Dummy, destruction of World Trade Center                                                      
@ %def D01Q4 d01q4

<<variable D2002>>=
D2002    = Dummy,                                                                                        
@ %def D2002 d2002

<<variable D2003>>=
D2003    = Dummy,                                                                                        
@ %def D2003 d2003

<<variable D69>>=
D69      = Dummy, post-1968 indicator                                                                    
@ %def D69 d69

<<variable D79A>>=
D79A     = Dummy, post-1979 indicator                                                                    
@ %def D79A d78a

<<variable D8095>>=
D8095    = Dummy, 1980-1995 indicator                                                                    
@ %def D8095 d8095

<<variable D81>>=
D81      = Dummy, post-1980 indicator                                                                    
@ %def D81 d81

<<variable D83>>=
D83      = Dummy, post-1983 indicator                                                                    
@ %def D83 d83

<<variable D86>>=
D86      = Dummy, post-1985 indicator                                                                    
@ %def D86 d86

<<variable D87>>=
D87      = Dummy, post-1986 indicator                                                                    
@ %def D87 d87

<<variable DCON>>=
DCON     = Dummy, 0 prior to 1986, 1 after 1988, with a linear trend in between                          
@ %def DCON dcon

<<variable DDOCKM>>=
DDOCKM   = Dock strike dummy, import equation                                                            
@ %def DDOCKM ddockm

<<variable DDOCKX>>=
DDOCKX   = Dock strike dummy, export equation                                                            
@ %def DDOCKX ddockx

<<variable DEUC>>=
DEUC     = EUC switch:  1 for including EUC, 0 for not including                                         
@ %def DEUC deuc

<<variable DFMPRR>>=
DFMPRR   = Dummy, Foreign monetary policy switch:  Exogenous real interest rate                          
@ %def DFMPRR dfmprr

<<variable DFPDBT>>=
DFPDBT   = Fiscal policy switch:  1 for debt ratio stabilization                                         
@ %def DFPDBT dfpdbt

<<variable DFPEX>>=
DFPEX    = Fiscal policy switch:  1 for exogenous personal income trend tax rates                        
@ %def DFPEX dfpex

<<variable DFPSRP>>=
DFPSRP   = Fiscal policy switch:  1 for surplus ratio stabilization                                      
@ %def DFPSRP dfpsrp

<<variable DGLPRD>>=
DGLPRD   = Switch to control for long-run productivity growth in the government sector                   
@ %def DGLPRD dglprd

<<variable DMPALT>>=
DMPALT   = Monetary policy switch: MA rule                                                               
@ %def DMPALT dmpalt

<<variable DMPEX>>=
DMPEX    = Monetary policy switch:  exogenous federal funds rate                                         
@ %def DMPEX dmpex

<<variable DMPGEN>>=
DMPGEN   = Monetary policy switch:  Generalized reaction function                                        
@ %def DMPGEN dmpgen

<<variable DMPINTAY>>=
DMPINTAY = Monetary policy switch:  inertial taylor rule                                                 
@ %def DMPINTAY dmpintay

<<variable DMPRR>>=
DMPRR    = Monetary policy switch:  exogenous real federal funds rate                                    
@ %def DMPRR dmprr

<<variable DMPSTB>>=
DMPSTB   = Stabilization  switch:  0 for standard applications, 1 for stochastic simulations             
@ %def DMPSTB dmpstb

<<variable DMPTAY>>=
DMPTAY   = Monetary policy switch:  Taylor's reaction function                                           
@ %def DMPTAY dmptay

<<variable DMPTLR>>=
DMPTLR   = Monetary policy switch:  Taylor's reaction function with unemployment gap                     
@ %def DMPTLR dmptlr

<<variable DMPTRSH>>=
DMPTRSH  = Monetary policy threshold switch:  0 for no threshold,  1 for threshold                       
@ %def DMPTRSH dmptrsh

<<variable DRSTAR>>=
DRSTAR   = RSTAR updating switch: 1 is on, 0 is off                                                      
@ %def DRSTAR drstar

<<variable FPITRG>>=
FPITRG   = Foreign target consumer price inflation (G10)                                                 
@ %def FPITRG fpitrg

<<variable FPXRRT>>=
FPXRRT   = Real exchange rate residual, trend                                                            
@ %def FPXRRT fpxrrt

<<variable GFDRT>>=
GFDRT    = Federal government target debt-to-GDP ratio                                                   
@ %def GFDRT gfdrt

<<variable GFSRT>>=
GFSRT    = Federal government target surplus-to-GDP ratio                                                
@ %def GFSRT gfsrt

<<variable GFTRT>>=
GFTRT    = Federal government, trend ratio of transfer payments to GDP                                   
@ %def GFTRT gftrt

<<variable GSDRT>>=
GSDRT    = S&L government target debt-to-GDP ratio                                                       
@ %def GSDRT gsdrt

<<variable GSSRT>>=
GSSRT    = State and local government, target surplus-to-GDP ratio                                       
@ %def GSSRT gssrt

<<variable GSTRT>>=
GSTRT    = S&L government, trend ratio of transfer payments to GDP                                       
@ %def GSTRT gstrt

<<variable HGPCDR>>=
HGPCDR   = Trend growth rate of price of consumer durable goods (relative to PCNIA)                      
@ %def HGPCDR hgpcdr

<<variable HKSR>>=
HKSR     = Residual growth of capital services                                                           
@ %def HKSR hksr

<<variable JRCD>>=
JRCD     = Depreciation rate, consumer durables                                                          
@ %def JRCD jrcd

<<variable JRH>>=
JRH      = Depreciation rate, housing                                                                    
@ %def JRH jrh

<<variable JRPD>>=
JRPD     = Depreciation rate, equipment                                                                  
@ %def JRPD jrpd

<<variable JRPI>>=
JRPI     = Depreciation rate, intellectual property                                                      
@ %def JRPI jrpi

<<variable JRPS>>=
JRPS     = Depreciation rate, nonresidential structures                                                  
@ %def JRPS jrps

<<variable LEUC>>=
LEUC     = Emergency unemployment compensation (EUC)                                                     
@ %def LEUC leuc

<<variable LQUALT>>=
LQUALT   = Labor quality, trend level                                                                    
@ %def LQUALT lqualt

<<variable LURTRSH>>=
LURTRSH  = Unemployment threshold                                                                        
@ %def LURTRSH lurtrsh

<<variable N16>>=
N16      = Noninstitutional population, aged 16 and over (break adjusted)                                
@ %def N16 n16

<<variable PCFRT>>=
PCFRT    = Real PCE price of food, trend                                                                 
@ %def PCFRT pcfrt

<<variable PCSTAR>>=
PCSTAR   = Target consumption price level (used in RFFGEN policy rule)                                   
@ %def PCSTAR pcstar

<<variable PITARG>>=
PITARG   = Target rate of consumption price inflation (used in policy reaction functions)                
@ %def PITARG pitarg

<<variable PITRSH>>=
PITRSH   = Inflation threshold                                                                           
@ %def PITRSH pitrsh

<<variable PKIR>>=
PKIR     = Price index for stock of inventories, cw (relative to PXP)                                    
@ %def PKIR pkir

<<variable PLMINR>>=
PLMINR   = Ratio of hourly minimum wage to compensation per hour (times 100)                             
@ %def PLMINR plminr

<<variable POILRT>>=
POILRT   = Price of imported oil, relative to price index for bus. sector output, trend                  
@ %def POILRT poilrt

<<variable QLEOR>>=
QLEOR    = Desired ratio of employment discrepancy to the labor force                                    
@ %def QLEOR qleor

<<variable RFFFIX>>=
RFFFIX   = Federal funds rate given by fixed, pre-determined funds rate path                             
@ %def RFFFIX rfffix

<<variable RFFMIN>>=
RFFMIN   = Minimum nominal funds rate (set at 0 to impose zero lower bound)                              
@ %def RFFMIN rffmin

<<variable RFNICT>>=
RFNICT   = Residual in FNICN equation                                                                    
@ %def RFNICT rfnict

<<variable RFRS10>>=
RFRS10   = Real foreign short-term interest rate                                                         
@ %def RFRS10 rfrs10

<<variable RRFIX>>=
RRFIX    = Real federal funds rate given by fixed, pre-determined real funds rate path                   
@ %def RRFIX rrfix

<<variable T47>>=
T47      = Time trend, begins in 1947q1 (0 before)                                                       
@ %def T47 t47

<<variable TAPDAD>>=
TAPDAD   = Proportion of investment in equipment using accelerated depreciation                          
@ %def TAPDAD tapdad

<<variable TAPDDP>>=
TAPDDP   = Proportion of investment tax credit deducted from depr. base                                  
@ %def TAPDDP tapddp

<<variable TAPDS>>=
TAPDS    = Tax service life of equipment                                                                 
@ %def TAPDS tapds

<<variable TAPDT>>=
TAPDT    = Investment tax credit rate for equipment                                                      
@ %def TAPDT tapdt

<<variable TAPSAD>>=
TAPSAD   = Proportion of investment in nonresidential structures using accelerated depreciation          
@ %def TAPSAD tapsad

<<variable TAPSSL>>=
TAPSSL   = Tax service life of nonresidential structures                                                 
@ %def TAPSSL tapssl

<<variable TFDIV>>=
TFDIV    = Federal income receipts on assets, dividends, current $                                       
@ %def TFDIV Tfdiv

<<variable TRFCIM>>=
TRFCIM   = Marginal federal corporate income tax rate                                                    
@ %def TRFCIM trfcim

<<variable TRFIB>>=
TRFIB    = Average federal indirect business tax rate                                                    
@ %def TRFIB trfib

<<variable TRFPM>>=
TRFPM    = Marginal federal personal income tax rate (at twice median family income)                     
@ %def TRFPM trfpm

<<variable TRFPTX>>=
TRFPTX   = Average federal tax rate for personal income tax, trend, policy setting                       
@ %def TRFPTX trfptx

<<variable TRFSI>>=
TRFSI    = Average federal social insurance tax rate                                                     
@ %def TRFSI trfsi

<<variable TRSCIT>>=
TRSCIT   = Average S&L corporate income tax rate, trend                                                  
@ %def TRSCIT trscit

<<variable TRSIBT>>=
TRSIBT   = Average S&L indirect business tax rate, trend                                                 
@ %def TRSIBT trsibt

<<variable TRSPP>>=
TRSPP    = Marginal S&L tax rate on personal property                                                    
@ %def TRSPP trspp

<<variable TRSPTX>>=
TRSPTX   = Average state and local tax rate for personal income, trend                                   
@ %def TRSPTX trsptx

<<variable TRSSIT>>=
TRSSIT   = Average S&L social insurance tax rate, trend                                                  
@ %def TRSSIT trssit

<<variable UEMOT>>=
UEMOT    = Trend in ratio of EMON to XGDEN                                                               
@ %def UEMOT uemot

<<variable UEMP>>=
UEMP     = Multiplicative factor in EMP identity                                                         
@ %def UEMP uemp

<<variable UFCBR>>=
UFCBR    = Multiplicative factor in FCBRN identity                                                       
@ %def UFCBR ufcbr

<<variable UFNIR>>=
UFNIR    = Multiplicative factor in FNIRN identity                                                       
@ %def UFNIR ufnir

<<variable UFPCM>>=
UFPCM    = Multiplicative factor in FPCM identity                                                        
@ %def UFPCM ufpcm

<<variable UFPXM>>=
UFPXM    = Multiplicative factor in FPXM identity                                                        
@ %def UFPXM ufpxm

<<variable UFTCIN>>=
UFTCIN   = Multiplicative factor in FTCIN identity                                                       
@ %def UFTCIN uftcin

<<variable UGFDBT>>=
UGFDBT   = Multiplicative factor in GFDBTN identity                                                      
@ %def UGFDBT ugfdbt

<<variable UGSDBT>>=
UGSDBT   = Multiplicative factor in GSDBTN identity                                                      
@ %def UGSDBT ugsdbt

<<variable UGSINT>>=
UGSINT   = Multiplicative factor in GSINTN identity                                                      
@ %def UGSINT ugsint

<<variable UGSSUB>>=
UGSSUB   = Multiplicative factor in GSSUB identity                                                       
@ %def UGSSUB ugssub

<<variable UJCCA>>=
UJCCA    = Multiplicative factor in JCCAN identity                                                       
@ %def UJCCA ujcca

<<variable UJCCAC>>=
UJCCAC   = Multiplicative factor in JCCACN identity                                                      
@ %def UJCCAC ujccac

<<variable UJYGFE>>=
UJYGFE   = Multiplicative factor in JYGFEN identity                                                      
@ %def UJYGFE ujygfe

<<variable UJYGFG>>=
UJYGFG   = Multiplicative factor in JYGFGN identity                                                      
@ %def UJYGFG ujygfg

<<variable UJYGSE>>=
UJYGSE   = Multiplicative factor in JYGSEN identity                                                      
@ %def UJYGSE ujygse

<<variable UJYGSG>>=
UJYGSG   = Multiplicative factor in JYGSGN identity                                                      
@ %def UJYGSG ujygsg

<<variable ULEF>>=
ULEF     = Multiplicative factor in LEF identity                                                         
@ %def ULEF ulef

<<variable ULES>>=
ULES     = Multiplicative factor in LES identity                                                         
@ %def ULES ules

<<variable UPCPI>>=
UPCPI    = Multiplicative factor in PCPI identity                                                        
@ %def UPCPI upcpi

<<variable UPCPIX>>=
UPCPIX   = Multiplicative factor in PCPIX identity                                                       
@ %def UPCPIX upcpix

<<variable UPGFL>>=
UPGFL    = Multiplicative factor in PGFL identity                                                        
@ %def UPGFL upgfl

<<variable UPGSL>>=
UPGSL    = Multiplicative factor in PGSL identity                                                        
@ %def UPGSL upgsl

<<variable UPKPD>>=
UPKPD    = Multiplicative factor in PKPDR identity                                                       
@ %def UPKPD upkpd

<<variable UPMP>>=
UPMP     = Multiplicative factor in PMP identity                                                         
@ %def UPMP upmp

<<variable UPXB>>=
UPXB     = Multiplicative factor in PXB   identity                                                       
@ %def UPXB upxb

<<variable UVEOA>>=
UVEOA    = Multiplicative factor in VEOA identity                                                        
@ %def UVEOA uveoa

<<variable UVPD>>=
UVPD     = Multiplicative factor in VPD identity                                                         
@ %def UVPD uvpd

<<variable UVPI>>=
UVPI     = Multiplicative factor in VPI identity                                                         
@ %def UVPI uvpi

<<variable UVPS>>=
UVPS     = Multiplicative factor in VPS identity                                                         
@ %def UVPS uvps

<<variable UXENG>>=
UXENG    = Multiplicative factor in XENG identity                                                        
@ %def UXENG uxeng

<<variable UYD>>=
UYD      = Multiplicative factor in YDN identity                                                         
@ %def UYD uyd

<<variable UYHI>>=
UYHI     = Multiplicative factor in YHIN identity                                                        
@ %def UYHI uyhi

<<variable UYHLN>>=
UYHLN    = Multiplicative factor in YHLN identity                                                        
@ %def UYHLN uyhln

<<variable UYHPTN>>=
UYHPTN   = Multiplicative factor in YHPTN identity                                                       
@ %def UYHPTN uyhptn

<<variable UYHSN>>=
UYHSN    = Multiplicative factor in personal saving identity (accounts for transfers to foreigners)      
@ %def UYHSN uyhsn

<<variable UYHTN>>=
UYHTN    = Multiplicative factor in YHTN identity                                                        
@ %def UYHTN uyhtn

<<variable UYL>>=
UYL      = Multiplicative factor in YLN identity                                                         
@ %def UYL uyl

<<variable UYNI>>=
UYNI     = Multiplicative factor in YNIN identity                                                        
@ %def UYNI uyni

<<variable UYNICP>>=
UYNICP   = Multiplicative factor in YNICPN identity                                                      
@ %def UYNICP uynicp

<<variable UYP>>=
UYP      = Multiplicative factor in YPN identity                                                         
@ %def UYP uyp

<<variable UYSEN>>=
UYSEN    = Multiplicative factor in YSEN identity                                                        
@ %def UYSEN uysen

<<variable YMSDN>>=
YMSDN    = Microsoft one-time dividend payout in 2004Q4                                                  
@ %def YMSDN ymsdn


\chapter{Original Files}

The variables are listed in
\href{https://www.federalreserve.gov/econresdata/frbus/files/data_only_package.zip}
{FRB/US dataset and variable listing (ZIP)}
(Updated database: March 17, 2016)
as the \textit{variables.txt} file
and the model description
in \href{https://www.federalreserve.gov/econresdata/frbus/files/frbus_package.zip}
{FRB/US model package (ZIP)}.

I'll produce the files so that they can be compared byte for byte to the originals;
"variables.txt", "stdver{\_}varinfo", "stdver{\_}eqs.txt", and "stdver{\_}coeffs.txt".
Because of file name limitations with noweb, I've had to modify the file names that I create.

\section{List of Variables with the Data}

<<variables.txt>>=
 <<variable CENG>>
 <<variable D01Q4>>
 <<variable D2002>>
 <<variable D2003>>
 <<variable D69>>
 <<variable D79A>>
 <<variable D8095>>
 <<variable D81>>
 <<variable D83>>
 <<variable D86>>
 <<variable D87>>
 <<variable DCON>>
 <<variable DDOCKM>>
 <<variable DDOCKX>>
 <<variable DELRFF>>
 <<variable DEUC>>
 <<variable DFMPRR>>
 <<variable DFPDBT>>
 <<variable DFPEX>>
 <<variable DFPSRP>>
 <<variable DGLPRD>>
 <<variable DMPALT>>
 <<variable DMPEX>>
 <<variable DMPGEN>>
 <<variable DMPINTAY>>
 <<variable DMPRR>>
 <<variable DMPSTB>>
 <<variable DMPTAY>>
 <<variable DMPTLR>>
 <<variable DMPTLUR>>
 <<variable DMPTMAX>>
 <<variable DMPTPI>>
 <<variable DMPTR>>
 <<variable DMPTRSH>>
 <<variable DPADJ>>
 <<variable DPGAP>>
 <<variable DRSTAR>>
 <<variable EC>>
 <<variable ECD>>
 <<variable ECH>>
 <<variable ECNIA>>
 <<variable ECNIAN>>
 <<variable ECO>>
 <<variable EGF>>
 <<variable EGFI>>
 <<variable EGFIN>>
 <<variable EGFIT>>
 <<variable EGFL>>
 <<variable EGFLN>>
 <<variable EGFLT>>
 <<variable EGFN>>
 <<variable EGFO>>
 <<variable EGFON>>
 <<variable EGFOT>>
 <<variable EGPDIN>>
 <<variable EGS>>
 <<variable EGSI>>
 <<variable EGSIN>>
 <<variable EGSIT>>
 <<variable EGSL>>
 <<variable EGSLN>>
 <<variable EGSLT>>
 <<variable EGSN>>
 <<variable EGSO>>
 <<variable EGSON>>
 <<variable EGSOT>>
 <<variable EH>>
 <<variable EHN>>
 <<variable EI>>
 <<variable EIN>>
 <<variable EM>>
 <<variable EMN>>
 <<variable EMO>>
 <<variable EMON>>
 <<variable EMP>>
 <<variable EMPN>>
 <<variable EMPT>>
 <<variable EPD>>
 <<variable EPDN>>
 <<variable EPI>>
 <<variable EPIN>>
 <<variable EPS>>
 <<variable EPSN>>
 <<variable EX>>
 <<variable EXN>>
 <<variable FCBN>>
 <<variable FCBRN>>
 <<variable FGDP>>
 <<variable FGDPT>>
 <<variable FNICN>>
 <<variable FNILN>>
 <<variable FNIN>>
 <<variable FNIRN>>
 <<variable FPC>>
 <<variable FPCM>>
 <<variable FPI10>>
 <<variable FPI10T>>
 <<variable FPIC>>
 <<variable FPITRG>>
 <<variable FPX>>
 <<variable FPXM>>
 <<variable FPXR>>
 <<variable FPXRR>>
 <<variable FPXRRT>>
 <<variable FRL10>>
 <<variable FRS10>>
 <<variable FRSTAR>>
 <<variable FTCIN>>
 <<variable FXGAP>>
 <<variable FYNICN>>
 <<variable FYNILN>>
 <<variable FYNIN>>
 <<variable GFDBTN>>
 <<variable GFDRT>>
 <<variable GFINTN>>
 <<variable GFS>>
 <<variable GFSN>>
 <<variable GFSRPN>>
 <<variable GFSRT>>
 <<variable GFSUB>>
 <<variable GFSUBN>>
 <<variable GFT>>
 <<variable GFTN>>
 <<variable GFTRD>>
 <<variable GFTRT>>
 <<variable GSDBTN>>
 <<variable GSDRT>>
 <<variable GSINTN>>
 <<variable GSSRPN>>
 <<variable GSSRT>>
 <<variable GSSUB>>
 <<variable GSSUBN>>
 <<variable GST>>
 <<variable GSTN>>
 <<variable GSTRD>>
 <<variable GSTRT>>
 <<variable HGEMP>>
 <<variable HGGDP>>
 <<variable HGGDPT>>
 <<variable HGPCDR>>
 <<variable HGPDR>>
 <<variable HGPIR>>
 <<variable HGPKIR>>
 <<variable HGPPSR>>
 <<variable HGVPD>>
 <<variable HGVPI>>
 <<variable HGVPS>>
 <<variable HGX>>
 <<variable HGYNID>>
 <<variable HKS>>
 <<variable HKSR>>
 <<variable HLEPT>>
 <<variable HLPRDT>>
 <<variable HMFPT>>
 <<variable HQLFPR>>
 <<variable HQLWW>>
 <<variable HUQPCT>>
 <<variable HUXB>>
 <<variable HXBT>>
 <<variable JCCACN>>
 <<variable JCCAN>>
 <<variable JKCD>>
 <<variable JRCD>>
 <<variable JRH>>
 <<variable JRPD>>
 <<variable JRPI>>
 <<variable JRPS>>
 <<variable JYGFEN>>
 <<variable JYGFGN>>
 <<variable JYGSEN>>
 <<variable JYGSGN>>
 <<variable JYNCN>>
 <<variable KCD>>
 <<variable KH>>
 <<variable KI>>
 <<variable KPD>>
 <<variable KPI>>
 <<variable KPS>>
 <<variable KS>>
 <<variable LEF>>
 <<variable LEFT>>
 <<variable LEH>>
 <<variable LEO>>
 <<variable LEP>>
 <<variable LEPPOT>>
 <<variable LES>>
 <<variable LEST>>
 <<variable LEUC>>
 <<variable LF>>
 <<variable LFPR>>
 <<variable LHP>>
 <<variable LPRDT>>
 <<variable LQUALT>>
 <<variable LUR>>
 <<variable LURBLS>>
 <<variable LURNAT>>
 <<variable LURTRSH>>
 <<variable LWW>>
 <<variable MEI>>
 <<variable MEP>>
 <<variable MFPT>>
 <<variable N16>>
 <<variable PCDR>>
 <<variable PCENG>>
 <<variable PCENGR>>
 <<variable PCER>>
 <<variable PCFR>>
 <<variable PCFRT>>
 <<variable PCHR>>
 <<variable PCNIA>>
 <<variable PCOR>>
 <<variable PCPI>>
 <<variable PCPIX>>
 <<variable PCSTAR>>
 <<variable PCXFE>>
 <<variable PGDP>>
 <<variable PGFIR>>
 <<variable PGFL>>
 <<variable PGFOR>>
 <<variable PGSIR>>
 <<variable PGSL>>
 <<variable PGSOR>>
 <<variable PHOUSE>>
 <<variable PHR>>
 <<variable PIC4>>
 <<variable PICNGR>>
 <<variable PICNIA>>
 <<variable PICX4>>
 <<variable PICXFE>>
 <<variable PIECI>>
 <<variable PIGDP>>
 <<variable PIPL>>
 <<variable PIPXNC>>
 <<variable PITARG>>
 <<variable PITRSH>>
 <<variable PKIR>>
 <<variable PKPDR>>
 <<variable PL>>
 <<variable PLMIN>>
 <<variable PLMINR>>
 <<variable PMO>>
 <<variable PMP>>
 <<variable POIL>>
 <<variable POILR>>
 <<variable POILRT>>
 <<variable PPDR>>
 <<variable PPIR>>
 <<variable PPSR>>
 <<variable PTR>>
 <<variable PWSTAR>>
 <<variable PXB>>
 <<variable PXG>>
 <<variable PXNC>>
 <<variable PXP>>
 <<variable PXR>>
 <<variable QEC>>
 <<variable QECD>>
 <<variable QECO>>
 <<variable QEH>>
 <<variable QEPD>>
 <<variable QEPI>>
 <<variable QEPS>>
 <<variable QKIR>>
 <<variable QLEOR>>
 <<variable QLEP>>
 <<variable QLF>>
 <<variable QLFPR>>
 <<variable QLHP>>
 <<variable QLWW>>
 <<variable QPCNIA>>
 <<variable QPL>>
 <<variable QPMO>>
 <<variable QPXG>>
 <<variable QPXNC>>
 <<variable QPXP>>
 <<variable QYNIDN>>
 <<variable RBBB>>
 <<variable RBBBE>>
 <<variable RBBBP>>
 <<variable RCAR>>
 <<variable RCCD>>
 <<variable RCCH>>
 <<variable RCGAIN>>
 <<variable REQ>>
 <<variable REQP>>
 <<variable RFF>>
 <<variable RFFALT>>
 <<variable RFFE>>
 <<variable RFFFIX>>
 <<variable RFFGEN>>
 <<variable RFFINTAY>>
 <<variable RFFMIN>>
 <<variable RFFRULE>>
 <<variable RFFTAY>>
 <<variable RFFTLR>>
 <<variable RFNICT>>
 <<variable RFRS10>>
 <<variable RFYNIC>>
 <<variable RFYNIL>>
 <<variable RG10>>
 <<variable RG10E>>
 <<variable RG10P>>
 <<variable RG30>>
 <<variable RG30E>>
 <<variable RG30P>>
 <<variable RG5>>
 <<variable RG5E>>
 <<variable RG5P>>
 <<variable RGFINT>>
 <<variable RGW>>
 <<variable RME>>
 <<variable RPD>>
 <<variable RRFFE>>
 <<variable RRFIX>>
 <<variable RRMET>>
 <<variable RRTR>>
 <<variable RSPNIA>>
 <<variable RSTAR>>
 <<variable RTB>>
 <<variable RTBE>>
 <<variable RTINV>>
 <<variable RTPD>>
 <<variable RTPI>>
 <<variable RTPS>>
 <<variable RTR>>
 <<variable T47>>
 <<variable TAPDAD>>
 <<variable TAPDD>>
 <<variable TAPDDP>>
 <<variable TAPDS>>
 <<variable TAPDT>>
 <<variable TAPSAD>>
 <<variable TAPSDA>>
 <<variable TAPSSL>>
 <<variable TFCIN>>
 <<variable TFDIV>>
 <<variable TFIBN>>
 <<variable TFPN>>
 <<variable TFSIN>>
 <<variable TRFCI>>
 <<variable TRFCIM>>
 <<variable TRFIB>>
 <<variable TRFP>>
 <<variable TRFPM>>
 <<variable TRFPT>>
 <<variable TRFPTX>>
 <<variable TRFSI>>
 <<variable TRSCI>>
 <<variable TRSCIT>>
 <<variable TRSIB>>
 <<variable TRSIBT>>
 <<variable TRSP>>
 <<variable TRSPP>>
 <<variable TRSPT>>
 <<variable TRSPTX>>
 <<variable TRSSI>>
 <<variable TRSSIT>>
 <<variable TRYH>>
 <<variable TSCIN>>
 <<variable TSIBN>>
 <<variable TSPN>>
 <<variable TSSIN>>
 <<variable UCES>>
 <<variable UCFS>>
 <<variable UEMOT>>
 <<variable UEMP>>
 <<variable UFCBR>>
 <<variable UFNIR>>
 <<variable UFPCM>>
 <<variable UFPXM>>
 <<variable UFTCIN>>
 <<variable UGFDBT>>
 <<variable UGSDBT>>
 <<variable UGSINT>>
 <<variable UGSSUB>>
 <<variable UJCCA>>
 <<variable UJCCAC>>
 <<variable UJYGFE>>
 <<variable UJYGFG>>
 <<variable UJYGSE>>
 <<variable UJYGSG>>
 <<variable ULEF>>
 <<variable ULES>>
 <<variable UPCPI>>
 <<variable UPCPIX>>
 <<variable UPGFL>>
 <<variable UPGSL>>
 <<variable UPKPD>>
 <<variable UPMP>>
 <<variable UPXB>>
 <<variable UQPCT>>
 <<variable UVEOA>>
 <<variable UVPD>>
 <<variable UVPI>>
 <<variable UVPS>>
 <<variable UXBT>>
 <<variable UXENG>>
 <<variable UYD>>
 <<variable UYHI>>
 <<variable UYHLN>>
 <<variable UYHPTN>>
 <<variable UYHSN>>
 <<variable UYHTN>>
 <<variable UYL>>
 <<variable UYNI>>
 <<variable UYNICP>>
 <<variable UYP>>
 <<variable UYSEN>>
 <<variable VEO>>
 <<variable VEOA>>
 <<variable VPD>>
 <<variable VPI>>
 <<variable VPS>>
 <<variable WDNFCN>>
 <<variable WPO>>
 <<variable WPON>>
 <<variable WPS>>
 <<variable WPSN>>
 <<variable XB>>
 <<variable XBN>>
 <<variable XBO>>
 <<variable XBT>>
 <<variable XENG>>
 <<variable XFS>>
 <<variable XFSN>>
 <<variable XG>>
 <<variable XGAP>>
 <<variable XGAP2>>
 <<variable XGDE>>
 <<variable XGDEN>>
 <<variable XGDI>>
 <<variable XGDIN>>
 <<variable XGDO>>
 <<variable XGDP>>
 <<variable XGDPN>>
 <<variable XGDPT>>
 <<variable XGDPTN>>
 <<variable XGN>>
 <<variable XGO>>
 <<variable XGPOT>>
 <<variable XP>>
 <<variable XPN>>
 <<variable YCSN>>
 <<variable YDN>>
 <<variable YGFSN>>
 <<variable YGSSN>>
 <<variable YH>>
 <<variable YHGAP>>
 <<variable YHIBN>>
 <<variable YHIN>>
 <<variable YHL>>
 <<variable YHLN>>
 <<variable YHP>>
 <<variable YHPCD>>
 <<variable YHPGAP>>
 <<variable YHPNTN>>
 <<variable YHPSHR>>
 <<variable YHPTN>>
 <<variable YHSHR>>
 <<variable YHSN>>
 <<variable YHT>>
 <<variable YHTGAP>>
 <<variable YHTN>>
 <<variable YHTSHR>>
 <<variable YKIN>>
 <<variable YKPDN>>
 <<variable YKPSN>>
 <<variable YMSDN>>
 <<variable YNICPN>>
 <<variable YNIDN>>
 <<variable YNIIN>>
 <<variable YNILN>>
 <<variable YNIN>>
 <<variable YNISEN>>
 <<variable YPN>>
 <<variable ZDIVGR>>
 <<variable ZECD>>
 <<variable ZECO>>
 <<variable ZEH>>
 <<variable ZGAP05>>
 <<variable ZGAP10>>
 <<variable ZGAP30>>
 <<variable ZGAPC2>>
 <<variable ZLHP>>
 <<variable ZPI10>>
 <<variable ZPI10F>>
 <<variable ZPI5>>
 <<variable ZPIB5>>
 <<variable ZPIC30>>
 <<variable ZPIC58>>
 <<variable ZPICXFE>>
 <<variable ZPIECI>>
 <<variable ZRFF10>>
 <<variable ZRFF30>>
 <<variable ZRFF5>>
 <<variable ZVPD>>
 <<variable ZVPI>>
 <<variable ZVPS>>
 <<variable ZXBD>>
 <<variable ZXBI>>
 <<variable ZXBS>>
 <<variable ZYH>>
 <<variable ZYHP>>
 <<variable ZYHPST>>
 <<variable ZYHST>>
 <<variable ZYHT>>
 <<variable ZYHTST>>
 <<variable ZYNID>>
 
@

\section{Standard Version Variable Information File}

<<stdver.varinfo>>=
  1 CENG     = Consumption of crude energy (oil, coal, natural gas),  2009 $                                  B.4 A sector_c.5   4 OT 1 0 16
  2 D01Q4    = Dummy, destruction of World Trade Center                                                       X.7                1 NO 0 0 27
  3 D2002    = Dummy,                                                                                         X.7                1 NO 0 0 27
  4 D2003    = Dummy,                                                                                         X.7                1 NO 0 0 27
  5 D69      = Dummy, post-1968 indicator                                                                     X.2                1 NO 0 0 14
  6 D79A     = Dummy, post-1979 indicator                                                                     X.2                1 NO 0 0 27
  7 D8095    = Dummy, 1980-1995 indicator                                                                     X.2                1 NO 0 0 14
  8 D81      = Dummy, post-1980 indicator                                                                     X.2                1 NO 0 0 14
  9 D83      = Dummy, post-1983 indicator                                                                     X.2                1 NO 0 0 27
 10 D86      = Dummy, post-1985 indicator                                                                     X.2                1 NO 0 0 27
 11 D87      = Dummy, post-1986 indicator                                                                     X.2                1 NO 0 0 14
 12 DCON     = Dummy, 0 prior to 1986, 1 after 1988, with a linear trend in between                           X.2                1 NO 0 0 27
 13 DDOCKM   = Dock strike dummy, import equation                                                             X.2                4 NO 0 0 27
 14 DDOCKX   = Dock strike dummy, export equation                                                             X.7                4 NO 0 0 27
 15 DELRFF   = Federal funds rate, first diff                                                                 I   A sector_i.14  1 NO 0 0 28
 16 DEUC     = EUC switch:  1 for including EUC, 0 for not including                                          X.2                1 NO 0 0  1
 17 DFMPRR   = Dummy, Foreign monetary policy switch:  Exogenous real interest rate                           X.2                1 NO 0 0 27
 18 DFPDBT   = Fiscal policy switch:  1 for debt ratio stabilization                                          X.2                1 NO 0 0 14
 19 DFPEX    = Fiscal policy switch:  1 for exogenous personal income trend tax rates                         X.2                1 NO 0 0 14
 20 DFPSRP   = Fiscal policy switch:  1 for surplus ratio stabilization                                       X.2                1 NO 0 0 14
 21 DGLPRD   = Switch to control for long-run productivity growth in the government sector                    X.2                1 NO 0 0 27
 22 DMPALT   = Monetary policy switch: MA rule                                                                X.2                1 NO 0 0  1
 23 DMPEX    = Monetary policy switch:  exogenous federal funds rate                                          X.2                1 NO 0 0  1
 24 DMPGEN   = Monetary policy switch:  Generalized reaction function                                         X.2                1 NO 0 0  1
 25 DMPINTAY = Monetary policy switch:  inertial taylor rule                                                  X.2                1 NO 0 0  1
 26 DMPRR    = Monetary policy switch:  exogenous real federal funds rate                                     X.2                1 NO 0 0  1
 27 DMPSTB   = Stabilization  switch:  0 for standard applications, 1 for stochastic simulations              X.2                1 NO 0 0  1
 28 DMPTAY   = Monetary policy switch:  Taylor's reaction function                                            X.2                1 NO 0 0  1
 29 DMPTLR   = Monetary policy switch:  Taylor's reaction function with unemployment gap                      X.2                1 NO 0 0  1
 30 DMPTLUR  = Monetary policy indicator for unemployment threshold                                           B   A sector_i.8   1 NO 0 0  1
 31 DMPTMAX  = Monetary policy indicator for both thresholds                                                  B   A sector_i.10  1 NO 0 0  1
 32 DMPTPI   = Monetary policy indicator for inflation threshold                                              B   A sector_i.9   1 NO 0 0  1
 33 DMPTR    = Monetary policy indicator for policy rule thresholds                                           B   A sector_i.11  1 NO 0 0  1
 34 DMPTRSH  = Monetary policy threshold switch:  0 for no threshold,  1 for threshold                        X.2                1 NO 0 0  1
 35 DPADJ    = Price inflation aggregation adjustment                                                         B   A sector_g.27  1 NO 0 0 28
 36 DPGAP    = Price inflation aggregation discrepancy                                                        I   A sector_g.26  1 NO 0 0 28
 37 DRSTAR   = RSTAR updating switch: 1 is on, 0 is off                                                       X.2                1 NO 0 0 27
 38 EC       = Consumption, cw 2009$ (FRB/US definition)                                                      I   A sector_a.17  4 NO 1 0 11
 39 ECD      = Consumer expenditures on durable goods, cw 2009$                                               B.4 A sector_a.2   4 IS 1 0  6
 40 ECH      = Consumer expenditures on housing services, cw 2009$                                            B.4 A sector_a.4   4 IS 1 0  6
 41 ECNIA    = Personal consumption expenditures, cw 2009$ (NIPA definition)                                  I   A sector_a.9   4 NO 1 0 11
 42 ECNIAN   = Personal consumption expenditures, current $ (NIPA definition)                                 I   A sector_a.10  4 NO 0 2 24
 43 ECO      = Consumer expenditures on non-durable goods and non-housing services, cw 2009$                  B.4 A sector_a.1   4 IS 1 0  6
 44 EGF      = Federal government consumption and gross investment, cw 2009$                                  I   A sector_h.1   4 NO 1 0  9
 45 EGFI     = Federal government gross investment, cw 2009$                                                  B.4 A sector_h.3   4 GV 1 0  9
 46 EGFIN    = Federal government gross investment, current $                                                 I   A sector_h.4   4 NO 0 2 24
 47 EGFIT    = Federal government gross investment, cw 2009$, trend                                           B.4 A sector_h.5   4 NO 1 0  9
 48 EGFL     = Federal government employee compensation, cw 2009$                                             B.4 A sector_h.6   4 GV 1 0  9
 49 EGFLN    = Federal government employee compensation, current $                                            I   A sector_h.7   4 NO 0 2 24
 50 EGFLT    = Federal government employee compensation, cw 2009$, trend                                      B.4 A sector_h.8   4 NO 1 0  9
 51 EGFN     = Federal government consumption and gross investment, current $                                 I   A sector_h.2   4 NO 0 2 24
 52 EGFO     = Federal government consumption ex. employee comp., cw 2009$                                    B.4 A sector_h.9   4 GV 1 0  9
 53 EGFON    = Federal government consumption ex. employee comp., current $                                   I   A sector_h.10  4 NO 0 2 24
 54 EGFOT    = Federal government consumption ex. employee comp., cw 2009$, trend                             B.4 A sector_h.11  4 NO 1 0  9
 55 EGPDIN   = Gross private domestic investment                                                              I   A sector_b.31  4 NO 0 2 24
 56 EGS      = S&L government consumption and gross investment, cw 2009$                                      I   A sector_h.12  4 NO 1 0 10
 57 EGSI     = S&L government gross investment, cw 2009$                                                      B.4 A sector_h.14  4 GV 1 0 10
 58 EGSIN    = S&L government gross investment, current $                                                     I   A sector_h.15  4 NO 0 2 24
 59 EGSIT    = S&L government gross investment, cw 2009$, trend                                               B.4 A sector_h.16  4 NO 1 0 10
 60 EGSL     = S&L government employee compensation, cw 2009$                                                 B.4 A sector_h.17  4 GV 1 0 10
 61 EGSLN    = S&L government employee compensation, current $                                                I   A sector_h.18  4 NO 0 2 24
 62 EGSLT    = S&L government employee compensation, cw 2009$, trend                                          B.4 A sector_h.19  4 NO 1 0 10
 63 EGSN     = S&L government consumption and gross investment, current $                                     I   A sector_h.13  4 NO 0 2 24
 64 EGSO     = S&L government consumption ex. employee comp., cw 2009$                                        B.4 A sector_h.20  4 GV 1 0 10
 65 EGSON    = S&L government consumption ex. employee comp., current $                                       I   A sector_h.21  4 NO 0 2 24
 66 EGSOT    = S&L government consumption ex. employee comp., cw 2009$, trend                                 B.4 A sector_h.22  4 NO 1 0 10
 67 EH       = Residential investment expenditures, cw 2009$                                                  B.4 A sector_a.3   4 IS 1 0  6
 68 EHN      = Residential investment expenditures                                                            I   A sector_a.11  4 NO 0 2 24
 69 EI       = Change in private inventories, cw 2009$                                                        I   A sector_b.5   3 NO 0 3  7
 70 EIN      = Change in business inventories, current $                                                      B   A sector_b.28  2 NO 0 2 24
 71 EM       = Imports of goods and services, cw 2009$                                                        I   A sector_c.9   4 NO 1 0  8
 72 EMN      = Imports of goods and services, current $                                                       I   A sector_c.8   4 NO 0 2 24
 73 EMO      = Imports of goods and services ex. petroleum, cw 2009$                                          B.4 A sector_c.3   4 IS 1 0  8
 74 EMON     = Imports of goods and services ex. petroleum                                                    I   A sector_c.4   4 NO 0 2 24
 75 EMP      = Petroleum imports, cw 2009$                                                                    I   A sector_c.6   4 NO 0 3  8
 76 EMPN     = Petroleum imports, current $                                                                   I   A sector_c.7   4 NO 0 2 24
 77 EMPT     = Petroleum imports trend, cw 2009$                                                              B   A sector_d.15  4 NO 1 0 28
 78 EPD      = Investment in equipment, cw 2009$                                                              B.4 A sector_b.1   4 IS 1 0  7
 79 EPDN     = Investment in equipment, current $                                                             I   A sector_b.25  4 NO 0 2 24
 80 EPI      = Investment in intellectual property, cw 2009$                                                  B.4 A sector_b.2   4 IS 1 0  7
 81 EPIN     = Investment in intellectual property, current $                                                 I     sector_b.26    NO     24
 82 EPS      = Investment in nonresidential structures, cw 2009$                                              B.4 A sector_b.3   4 IS 1 0  7
 83 EPSN     = Investment in nonresidential structures, current $                                             I   A sector_b.27  4 NO 0 2 24
 84 EX       = Exports of goods and services, cw 2009 $                                                       B.4 A sector_c.1   4 IS 1 0  8
 85 EXN      = Exports of goods and services, current $                                                       I   A sector_c.2   4 NO 0 2 24
 86 FCBN     = US current account balance, current $                                                          I   A sector_c.10  2 NO 0 2 13
 87 FCBRN    = US current account balance residual, current $                                                 I   A sector_c.11  2 NO 0 2 13
 88 FGDP     = Foreign aggregate GDP (world, bilateral export weights)                                        I   A sector_j.2   4 NO 0 1 12
 89 FGDPT    = Foreign aggregate GDP (world, bilateral export weights), trend                                 B.4 A sector_j.3   4 NO 0 1 12
 90 FNICN    = Gross stock of claims of US residents on the rest of the world, current $                      I   A sector_c.16  2 NO 2 0 13
 91 FNILN    = Gross stock of liabilities of US residents to the rest of the world, current $                 I   A sector_c.17  2 NO 0 2 13
 92 FNIN     = Net stock of claims of US residents on the rest of the world, current $                        I   A sector_c.12  2 NO 0 2 13
 93 FNIRN    = Net stock of claims of US residents on the rest of the world, residual                         I   A sector_c.22  2 NO 0 2 13
 94 FPC      = Foreign aggregate consumer price (G39, import/export trade weights)                            I   A sector_j.7   4 NO 0 1 13
 95 FPCM     = Foreign aggregate consumer price (G39, bilateral non-oil import trade weights)                 I   A sector_j.8   4 NO 0 1 13
 96 FPI10    = Foreign consumer price inflation (G10)                                                         B.4 A sector_j.4   1 NO 0 0 13
 97 FPI10T   = Foreign consumer price inflation, trend (G10)                                                  B.1 A sector_j.5   1 NO 0 0 13
 98 FPIC     = Foreign consumer price inflation (G39, bilateral export trade weights)                         B.1 A sector_j.6   1 NO 0 0 13
 99 FPITRG   = Foreign target consumer price inflation (G10)                                                  X.2                1 NO 0 0 13
100 FPX      = Nominal exchange rate (G39, import/export trade weights)                                       I   A sector_j.14  4 NO 0 1  4
101 FPXM     = Nominal exchange rate (G39, bilateral import trade weights)                                    I   A sector_j.15  4 NO 0 1  4
102 FPXR     = Real exchange rate (G39, import/export trade weights)                                          B   A sector_j.12  4 NO 1 0  4
103 FPXRR    = Real exchange rate residual                                                                    B.4 A sector_j.13  4 RW 1 0  4
104 FPXRRT   = Real exchange rate residual, trend                                                             X.2                4 NO 0 0  4
105 FRL10    = Foreign long-term interest rate (G10)                                                          B.4 A sector_j.11  1 NO 0 0 13
106 FRS10    = Foreign short-term interest rate (G10)                                                         B.4 A sector_j.9   1 NO 0 0 13
107 FRSTAR   = Equilibrium real short-term interest rate used in foreign Taylor rule                          B   A sector_j.10  1 NO 0 0 13
108 FTCIN    = Corporate taxes paid to rest of world, current $                                               I   A sector_c.13  4 NO 0 2 13
109 FXGAP    = Foreign output gap (world, bilateral export weights)                                           B.4 A sector_j.1   1 RW 0 0 12
110 FYNICN   = Gross investment income received from the rest of the world, current $                         I   A sector_c.18  2 NO 0 2 13
111 FYNILN   = Gross investment income paid to the rest of the world, current $                               I   A sector_c.19  2 NO 0 2 13
112 FYNIN    = Net investment income received from the rest of the world, current $                           I   A sector_c.14  2 NO 0 2 13
113 GFDBTN   = Federal government debt stock, current $                                                       I   A sector_h.23  2 NO 0 2 14
114 GFDRT    = Federal government target debt-to-GDP ratio                                                    X.2                1 NO 0 0 14
115 GFINTN   = Federal government net interest payments, current $                                            I   A sector_h.24  2 NO 0 2 14
116 GFS      = Federal government grants-in-aid to S&L government, deflated by PGDP                           B.4 A sector_h.25  4 NO 0 0 14
117 GFSN     = Federal government grants-in-aid to S&L government, current $                                  I   A sector_h.26  4 NO 0 2 14
118 GFSRPN   = Federal government budget surplus, current $                                                   I   A sector_h.27  2 NO 0 2 14
119 GFSRT    = Federal government target surplus-to-GDP ratio                                                 X.2                1 NO 0 0 14
120 GFSUB    = Federal government subsidies less surplus, deflated by PGDP                                    B.4 A sector_h.28  3 NO 0 0 14
121 GFSUBN   = Federal government subsidies less surplus, current $                                           I   A sector_h.29  2 NO 0 2 14
122 GFT      = Federal government net transfer payments, deflated by PGDP                                     I   A sector_h.30  4 NO 0 0 14
123 GFTN     = Federal government net transfer payments, current $                                            I   A sector_h.31  4 NO 0 2 14
124 GFTRD    = Deviation of ratio of federal transfers to GDP from trend ratio                                B.1 A sector_h.32  1 GV 0 0 14
125 GFTRT    = Federal government, trend ratio of transfer payments to GDP                                    X.2                1 NO 0 0 14
126 GSDBTN   = S&L government debt stock, current $                                                           I   A sector_h.33  2 NO 0 2 15
127 GSDRT    = S&L government target debt-to-GDP ratio                                                        X.2                4 NO 0 0 15
128 GSINTN   = S&L government net interest payments, current $                                                I   A sector_h.34  2 NO 0 2 15
129 GSSRPN   = S&L government budget surplus, current $                                                       I   A sector_h.35  2 NO 0 2 15
130 GSSRT    = State and local government, target surplus-to-GDP ratio                                        X.2                1 NO 0 0 15
131 GSSUB    = S&L government subsidies less surplus, deflated by PGDP                                        I   A sector_h.40  3 NO 0 0 15
132 GSSUBN   = S&L government subsidies less surplus, current $                                               I   A sector_h.36  2 NO 0 2 15
133 GST      = S&L government net transfer payments, deflated by PGDP                                         I   A sector_h.38  4 NO 0 3 15
134 GSTN     = S&L government net transfer payments, current $                                                I   A sector_h.37  4 NO 0 2 15
135 GSTRD    = Deviation of ratio of S&L transfers to GDP from trend ratio                                    B.1 A sector_h.39  1 GV 0 0 15
136 GSTRT    = S&L government, trend ratio of transfer payments to GDP                                        X.2                1 NO 0 0 15
137 HGEMP    = Petroleum imports, cw 2009$, trend growth rate                                                 B   A sector_c.15  1 NO 0 0 28
138 HGGDP    = Growth rate of GDP, cw 2009$ (annual rate)                                                     I   A sector_d.3   1 NO 0 0 29
139 HGGDPT   = Trend growth rate of XGDP, cw 2009$ (annual rate)                                              I   A sector_d.24  1 NO 0 0 18
140 HGPCDR   = Trend growth rate of price of consumer durable goods (relative to PCNIA)                       X.2                1 NO 0 0 22
141 HGPDR    = Trend Price Growth of PPDR                                                                     B   A sector_g.50  1 NO 0 0 22
142 HGPIR    = Trend Price Growth of PPIR                                                                     B   A sector_g.51  1 NO 0 0 22
143 HGPKIR   = Trend growth rate of PKIR                                                                      B   A sector_g.52  1 NO 0 0 22
144 HGPPSR   = Trend growth rate of PPSR                                                                      B   A sector_g.53  1 NO 0 0 22
145 HGVPD    = Trend Growth of VPD                                                                            B   A sector_b.23  1 NO 0 0  7
146 HGVPI    = Trend growth rate of VPI                                                                       B   A sector_b.32  1 NO 0 0  7
147 HGVPS    = Trend growth rate of VPS                                                                       B   A sector_b.24  1 NO 0 0  7
148 HGX      = Trend growth rate of XG, cw 2009$ (annual rate)                                                I   A sector_d.22  1 NO 0 0 18
149 HGYNID   = Growth rate of real after-tax corporate profits                                                I   A sector_z.37  1 NO 0 0 28
150 HKS      = Growth rate of KS, cw 2009$ (compound annual rate)                                             I   A sector_b.13  1 NO 0 0 18
151 HKSR     = Residual growth of capital services                                                            X.7                1 NO 0 0 18
152 HLEPT    = Trend growth rate of LEP (annual rate)                                                         B   A sector_e.22  1 NO 0 0 18
153 HLPRDT   = Trend growth rate of output per hour                                                           I   A sector_e.24  1 NO 0 0 18
154 HMFPT    = Trend growth rate of multifactor productivity                                                  B   A sector_d.11  1 ST 0 0 18
155 HQLFPR   = Drift component of change in QLFPR                                                             B   A sector_e.13  1 LB 0 0 18
156 HQLWW    = Trend growth rate of workweek                                                                  B   A sector_e.5   1 LB 0 0 18
157 HUQPCT   = Drift term in stochastic component of trend ratio of PCNIA to PXP                              B   A sector_g.31  4 NO 0 0 22
158 HUXB     = Drift term in UXBT                                                                             B.4 A sector_d.19  1 NO 0 0 18
159 HXBT     = Trend rate of growth of XB  , cw 2009$ (annual rate)                                           I   A sector_d.23  1 NO 0 0 18
160 JCCACN   = Consumption of fixed capital, corporate, current $                                             I   A sector_f.7   4 NO 0 2 21
161 JCCAN    = Consumption of fixed capital, current $                                                        I   A sector_f.8   4 NO 0 2 21
162 JKCD     = Consumption of fixed capital, consumer durables                                                I   A sector_a.16  4 NO 1 0 21
163 JRCD     = Depreciation rate, consumer durables                                                           X.3                1 NO 0 0 21
164 JRH      = Depreciation rate, housing                                                                     X.3                1 NO 0 0 21
165 JRPD     = Depreciation rate, equipment                                                                   X.3                1 NO 0 0 21
166 JRPI     = Depreciation rate, intellectual property                                                       X.3                1 NO 0 0 21
167 JRPS     = Depreciation rate, nonresidential structures                                                   X.3                1 NO 0 0 21
168 JYGFEN   = CFC, federal government enterprises, current $                                                 I   A sector_f.9   4 NO 0 2 14
169 JYGFGN   = CFC, federal government, general, current $                                                    I   A sector_f.10  4 NO 0 2 14
170 JYGSEN   = CFC, state and local government enterprises, current $                                         I   A sector_f.11  4 NO 0 2 15
171 JYGSGN   = CFC, state and local government, general, current $                                            I   A sector_f.12  4 NO 0 2 15
172 JYNCN    = Noncorporate business CFC, current $                                                           I   A sector_f.13  4 NO 0 2 21
173 KCD      = Stock of consumer durables, cw 2009$                                                           I   A sector_a.12  4 NO 0 3 21
174 KH       = Stock of residential structures, cw 2009$                                                      I   A sector_a.13  4 NO 0 3 21
175 KI       = Stock of private inventories, cw 2009$                                                         B.4 A sector_b.4   4 IS 1 0  7
176 KPD      = Capital stock - Equipment, 2009$                                                               I   A sector_b.10  4 NO 0 3 21
177 KPI      = Capital Stock - Intellectual Property, 2009$                                                   I     sector_b.11    NO     21
178 KPS      = Capital stock - nonresidential structures, 2009$                                               I   A sector_b.12  4 NO 0 3 21
179 KS       = Capital services, 2009 $                                                                       I   A sector_b.14  4 NO 1 0 18
180 LEF      = Federal civilian employment ex. gov. enterprise                                                I   A sector_e.8   4 NO 0 4 20
181 LEFT     = Federal civilian employment ex. gov. enterprise, trend                                         B.6 A sector_e.19  4 NO 0 4 18
182 LEH      = Civilian employment (break adjusted)                                                           I   A sector_e.10  4 NO 0 4 20
183 LEO      = Difference between household and business sector payroll employment, less gov't emp.           B   A sector_e.7   5 NO 1 0 20
184 LEP      = Employment in  business sector (employee and  self-employed)                                   I   A sector_e.6   4 NO 0 4 20
185 LEPPOT   = Potential employment in  business sector                                                       I   A sector_e.21  4 NO 0 4 18
186 LES      = S&L government employment ex. gov. enterprise                                                  I   A sector_e.9   4 NO 0 4 20
187 LEST     = S&L government employment ex. gov. enterprise, trend                                           B.4 A sector_e.20  4 NO 0 4 18
188 LEUC     = Emergency unemployment compensation (EUC)                                                      X.2                1 NO 0 0 18
189 LF       = Civilian labor force (break adjusted)                                                          I   A sector_e.14  4 NO 0 4 20
190 LFPR     = Labor force participation rate                                                                 B   A sector_e.11  1 LB 0 0 20
191 LHP      = Aggregate labor hours,  business sector (employee and  self-employed)                          B   A sector_e.1   4 LB 1 0 20
192 LPRDT    = Trend labor productivity                                                                       I   A sector_e.23  4 NO 1 0 18
193 LQUALT   = Labor quality, trend level                                                                     X.1                4 NO 0 0 18
194 LUR      = Civilian unemployment rate (break adjusted)                                                    B   A sector_e.15  1 LB 0 0 20
195 LURBLS   = Civilian unemployment rate (published)                                                         B.3 A sector_e.16  1 NO 0 0 20
196 LURNAT   = Natural rate of unemployment                                                                   B   A sector_e.25  1 LB 0 0 18
197 LURTRSH  = Unemployment threshold                                                                         X.2                1 NO 0 0  1
198 LWW      = Workweek,  business sector (employee and self-employed)                                        B.7 A sector_e.3   4 LB 1 0 20
199 MEI      = Multiplicative discrepancy for the difference between XGDI and XGDO                            B   A sector_i.39  1 NO 0 0 28
200 MEP      = Multiplicative discrepancy for the difference between XGDP and XGDO                            B   A sector_i.41  1 NO 0 0 28
201 MFPT     = Multifactor productivity, trend level                                                          B   A sector_d.12  4 ST 1 0 18
202 N16      = Noninstitutional population, aged 16 and over (break adjusted)                                 X.1                4 NO 0 0 18
203 PCDR     = Price index for consumer durables, cw (relative to to PCNIA)                                   B.4 A sector_g.59  4 NO 0 0 22
204 PCENG    = Price index for aggregate energy consumption                                                   I   A sector_g.37  4 NO 0 1 17
205 PCENGR   = Price index for aggregate energy consumption (relative to PXB  )                               B.4 A sector_g.36  4 PR 1 0 17
206 PCER     = Price index for personal consumption expenditures on energy (relative to PCXFE)                B.4 A sector_g.38  4 PR 1 0 17
207 PCFR     = Price index for personal consumption expenditures on food (relative to PCXFE)                  B.4 A sector_g.39  4 PR 1 0 22
208 PCFRT    = Real PCE price of food, trend                                                                  X.2                4 NO 0 0 22
209 PCHR     = Price index for housing services, cw (relative to to PCNIA)                                    B.4 A sector_g.57  4 NO 0 0 22
210 PCNIA    = Price index for personal consumption expenditures, cw (NIPA definition)                        I     sector_g.5     NO     22
211 PCOR     = Price index for non-durable goods and non-housing services, cw (relative to to PCNIA)          I   A sector_g.56  4 NO 0 0 22
212 PCPI     = Consumer price index,total                                                                     I   A sector_g.6   4 NO 0 1 22
213 PCPIX    = Consumer price index,excluding food and energy                                                 I   A sector_g.7   4 NO 0 1 22
214 PCSTAR   = Target consumption price level (used in RFFGEN policy rule)                                    X.1                4 NO 0 0 22
215 PCXFE    = Price index for personal consumption expendits ex. food and energy, cw (NIPA definition)       B.4 A sector_g.33  4 NO 1 0 22
216 PGDP     = Price index for GDP, cw                                                                        I   A sector_g.44  4 NO 0 1 22
217 PGFIR    = Price index for federal gov. investment, cw (relative to PXP)                                  B.4 A sector_g.17  4 OT 1 0 22
218 PGFL     = Price index for federal government employee compensation, cw                                   I   A sector_g.45  4 NO 0 1 22
219 PGFOR    = Price index for federal governemnt consumption ex. emp. comp., cw (relative to PXP)            B.4 A sector_g.18  4 OT 1 0 22
220 PGSIR    = Price index for S&L government investment (relative to PXP)                                    B.4 A sector_g.19  4 OT 1 0 22
221 PGSL     = Price index for S&L government employee compensation, cw                                       I   A sector_g.46  4 NO 0 1 22
222 PGSOR    = Price index for S&L government consumption ex. emp. comp., cw (relative to PXP)                B.4 A sector_g.20  4 OT 1 0 22
223 PHOUSE   = Loan Performance House Price Index                                                             B.4 A sector_i.37  1 FN 0 0  3
224 PHR      = Price index for residential investment, cw (relative to PXP)                                   B.4 A sector_g.21  4 OT 1 0 22
225 PIC4     = Four-quarter percent change in PCE prices                                                      I   A sector_g.60  4 NO 1 0 22
226 PICNGR   = Weighted growth rate of relative energy price                                                  I   A sector_g.54  1 NO 0 0 17
227 PICNIA   = Inflation rate, personal consumption expenditures, cw                                          B   A sector_g.4   1 NO 0 0 22
228 PICX4    = Four-quarter percent change core in PCE prices                                                 I   A sector_g.58  4 NO 1 0 22
229 PICXFE   = Inflation rate, personal consumption expenditures, ex. food and energy, cw                     B.4 A sector_g.1   1 PR 0 0 22
230 PIECI    = Annualized rate of growth of EI hourly compensation                                            B.4 A sector_g.2   1 PR 0 0 22
231 PIGDP    = Inflation rate, GDP, cw                                                                        I   A sector_g.55  1 NO 0 0 22
232 PIPL     = Rate of growth of PL                                                                           B   A sector_g.8   1 NO 0 0 22
233 PIPXNC   = Inflation rate, price of adjusted final sales excluding consumption (annual rate)              B   A sector_g.3   1 NO 0 0 22
234 PITARG   = Target rate of consumption price inflation (used in policy reaction functions)                 X.2                1 NO 0 0  1
235 PITRSH   = Inflation threshold                                                                            X.2                1 NO 0 0  1
236 PKIR     = Price index for stock of inventories, cw (relative to PXP)                                     X.2                4 NO 0 0 22
237 PKPDR    = Ratio of price of equipment stock (KPD) to PXP                                                 I   A sector_g.47  4 NO 0 1 22
238 PL       = Compensation per hour,  business                                                               I   A sector_g.9   4 NO 1 0 22
239 PLMIN    = Minimum wage                                                                                   I   A sector_g.28  4 NO 0 1 22
240 PLMINR   = Ratio of hourly minimum wage to compensation per hour (times 100)                              X.2                4 NO 0 0 22
241 PMO      = Price index for imports ex. petroleum, cw                                                      B.4 A sector_g.42  4 PR 1 0 22
242 PMP      = Price index for petroleum imports                                                              I   A sector_g.35  4 NO 0 1 22
243 POIL     = Price of imported oil ($ per barrel)                                                           I   A sector_g.34  4 NO 0 1 17
244 POILR    = Price of imported oil, relative to price index for bus. sector output                          B.4 A sector_g.32  4 PR 1 0 17
245 POILRT   = Price of imported oil, relative to price index for bus. sector output, trend                   X.2                4 NO 0 0 17
246 PPDR     = Price level of EPD compared to PXP                                                             B.4 A sector_g.22  4 OT 1 0 22
247 PPIR     = Price level of EPI compared to PXP                                                             B.4 A sector_g.23  4 OT 1 0 22
248 PPSR     = Price index for nonresidential structures, cw (relative to PXP)                                B.4 A sector_g.24  4 OT 1 0 22
249 PTR      = 10-year expected PCE price inflation (Survey of Professional Forecasters)                      B   A sector_z.1   1 NO 0 0 22
250 PWSTAR   = Equilibrium NFB price markup                                                                   B   A sector_g.11  1 NO 0 0 22
251 PXB      = Price index for NFB output                                                                     I   A sector_g.49  4 NO 0 1 22
252 PXG      = Price index for  business output plus oil imports                                              I   A sector_g.48  4 NO 0 1 22
253 PXNC     = Price of adjusted final sales excluding consumption                                            B.4 A sector_g.10  4 NO 1 0 22
254 PXP      = Price index for final sales plus imports less gov. labor                                       I   A sector_g.16  4 NO 1 0 22
255 PXR      = Price index for exports, cw (relative to PXP)                                                  B.4 A sector_g.25  4 OT 1 0 22
256 QEC      = Desired level of consumption (FRBUS definition)                                                I   A sector_a.5   4 NO 0 3 25
257 QECD     = Target level of consumption of durable goods, trending component                               I   A sector_a.7   4 NO 0 1 25
258 QECO     = Desired level of consumption of nondurable goods and nonhousing services                       I   A sector_a.6   4 NO 0 1 25
259 QEH      = Target level of residential investment                                                         I   A sector_a.8   4 NO 0 1 25
260 QEPD     = Desired level of investment in equipment                                                       I   A sector_b.6   4 NO 1 0 25
261 QEPI     = Desired level of investment in intellectual property                                           I   A sector_b.8   4 NO 1 0 25
262 QEPS     = Desired level of investment in structures                                                      I   A sector_b.7   4 NO 1 0 25
263 QKIR     = Desired Inventory Sales Ratio                                                                  B   A sector_b.9   4 NO 1 0  7
264 QLEOR    = Desired ratio of employment discrepancy to the labor force                                     X.2                4 NO 0 0 18
265 QLEP     = Desired level of  business employment                                                          I   A sector_e.17  4 NO 0 4 25
266 QLF      = Desired level of civilian labor force                                                          I   A sector_e.18  4 NO 0 4 25
267 QLFPR    = Trend labor force participation rate                                                           I   A sector_e.12  1 NO 0 0 18
268 QLHP     = Desired level of  business labor hours                                                         I   A sector_e.2   4 NO 0 1 25
269 QLWW     = Trend workweek,  business sector (employee and  self-employed)                                 I   A sector_e.4   4 NO 1 0 18
270 QPCNIA   = Desired level of consumption price                                                             I   A sector_g.15  4 NO 1 0 25
271 QPL      = Desired level of compensation per hour, trending component                                     I   A sector_g.13  4 NO 1 0 25
272 QPMO     = Random walk component of non-oil import prices                                                 B   A sector_g.43  4 NO 1 0 25
273 QPXG     = Desired price level of private output ex. energy, housing, and farm                            I   A sector_g.12  4 NO 1 0 25
274 QPXNC    = Desired level of nonconsumption price                                                          I   A sector_g.29  4 NO 1 0 25
275 QPXP     = Desired price level of adjusted final sales                                                    I   A sector_g.14  4 NO 0 1 25
276 QYNIDN   = Desired level of dividends                                                                     I   A sector_f.18  4 NO 1 0 25
277 RBBB     = S&P BBB corporate bond rate                                                                    I   A sector_i.29  1 NO 0 0  3
278 RBBBE    = S&P BBB corporate bond rate (effective ann. yield)                                             I   A sector_i.28  1 NO 0 0  3
279 RBBBP    = S&P BBB corporate bond rate, risk/term premium                                                 B.4 A sector_i.27  1 FN 0 0  3
280 RCAR     = New car loan rate at finance companies                                                         B.1 A sector_i.30  1 FN 0 0  3
281 RCCD     = Cost of capital for consumer durables                                                          I   A sector_a.14  1 NO 0 0  3
282 RCCH     = Cost of capital for residential investment                                                     I   A sector_a.15  1 NO 0 0  3
283 RCGAIN   = Rate of capital gain on the non-equity portion of household wealth                             B.4 A sector_i.36  1 FN 0 0  3
284 REQ      = Real expected rate of return on equity                                                         I   A sector_i.33  1 NO 0 0  3
285 REQP     = Real expected rate of return on equity, premium component                                      B.4 A sector_i.32  1 FN 0 0  2
286 RFF      = Federal funds rate                                                                             I   A sector_i.13  1 NO 0 0  1
287 RFFALT   = Value of eff. federal funds rate given by estimated policy rule                                B   A sector_i.4   1 NO 0 0  1
288 RFFE     = Federal funds rate (effective ann. yield)                                                      B   A sector_i.12  1 NO 0 0  1
289 RFFFIX   = Federal funds rate given by fixed, pre-determined funds rate path                              X.2                1 NO 0 0  1
290 RFFGEN   = Value of eff. federal funds rate given by the generalized reaction function                    B     sector_i.5     NO 0 0  1
291 RFFINTAY = Value of eff. federal funds rate given by the inertial Taylor rule                             B.4 A sector_i.3   1 NO 0 0  1
292 RFFMIN   = Minimum nominal funds rate (set at 0 to impose zero lower bound)                               X.2                1 NO 0 0  1
293 RFFRULE  = Federal funds rate (effective ann. yield)                                                      B   A sector_i.7   1 NO 0 0  1
294 RFFTAY   = Value of eff. federal funds rate given by the Taylor rule with output gap                      B.4 A sector_i.1   1 NO 0 0  1
295 RFFTLR   = Value of eff. federal funds rate given by the Taylor rule with unemployment gap                B.4 A sector_i.2   1 NO 0 0  1
296 RFNICT   = Residual in FNICN equation                                                                     X.2                2 NO 0 2 18
297 RFRS10   = Real foreign short-term interest rate                                                          X.2                1 NO 0 0 27
298 RFYNIC   = Average yield earned on gross claims of US residents on the rest of the world                  B.4 A sector_c.20  2 FN 0 0  3
299 RFYNIL   = Average yield earned on liabilities of US residents on the rest of the world                   B.4 A sector_c.21  2 FN 0 0  3
300 RG10     = 10-year Treasury bond rate                                                                     I   A sector_i.23  1 NO 0 0  3
301 RG10E    = 10-year Treasury bond rate (effective ann. yield)                                              I   A sector_i.22  1 NO 0 0  3
302 RG10P    = 10-year Treasury bond rate, term premium                                                       B.4 A sector_i.21  1 FN 0 0  3
303 RG30     = 30-year Treasury bond rate                                                                     I   A sector_i.26  1 NO 0 0  3
304 RG30E    = 30-year Treasury bond rate (effective ann. yield)                                              I   A sector_i.25  1 NO 0 0  3
305 RG30P    = 30-year Treasury bond rate, term premium                                                       B.4 A sector_i.24  1 FN 0 0  3
306 RG5      = 5-year Treasury note rate                                                                      I   A sector_i.20  1 NO 0 0  3
307 RG5E     = 5-year Treasury note rate (effective ann. yield)                                               I   A sector_i.19  1 NO 0 0  3
308 RG5P     = 5-year Treasury note rate. term premium                                                        B.4 A sector_i.18  1 FN 0 0  3
309 RGFINT   = Average rate of interest on existing federal debt                                              B.1 A sector_i.43  1 GV 0 0  3
310 RGW      = Approximate average rate of interest on new federal debt                                       I   A sector_i.42  1 NO 0 0  3
311 RME      = Interest rate on conventional mortgages (effective ann. yield)                                 B.1 A sector_i.31  1 FN 0 0  3
312 RPD      = After-tax real financial cost of capital for business investment                               I   A sector_b.15  1 NO 0 0  3
313 RRFFE    = Real federal funds rate (effective ann. yield)                                                 I   A sector_i.15  1 NO 0 0  1
314 RRFIX    = Real federal funds rate given by fixed, pre-determined real funds rate path                    X.2                1 NO 0 0  1
315 RRMET    = Real mortgage rate, trend                                                                      B   A sector_i.44  1 NO 0 0  3
316 RRTR     = Expected long-run real federal funds rate                                                      B   A sector_z.2   1 NO 0 0  3
317 RSPNIA   = Personal saving rate                                                                           I.3 A sector_f.23  1 NO 0 0 28
318 RSTAR    = Equilibrium real federal funds rate (for monetary policy reaction functions)                   B   A sector_i.6   1 NO 0 0  1
319 RTB      = 3-month Treasury bill rate                                                                     I   A sector_i.17  1 NO 0 0  3
320 RTBE     = 3-month Treasury bill rate (effective ann. yield)                                              B.1 A sector_i.16  1 FN 0 0  3
321 RTINV    = User cost of capital for inventories                                                           I   A sector_b.19  4 NO 0 0  3
322 RTPD     = User cost of capital for equipment                                                             I   A sector_b.16  4 NO 0 0  3
323 RTPI     = User cost of capital for intellectual property                                                 I   A sector_b.17  4 NO 0 0  3
324 RTPS     = User cost of capital for nonresidential structures                                             I   A sector_b.18  4 NO 0 0  3
325 RTR      = Expected federal funds rate in the long run (Blue Chip)                                        I   A sector_z.3   1 NO 0 0  3
326 T47      = Time trend, begins in 1947q1 (0 before)                                                        X.5                1 NO 0 0 27
327 TAPDAD   = Proportion of investment in equipment using accelerated depreciation                           X.2                1 NO 0 0 14
328 TAPDD    = Present value of depreciation allowances for equipment                                         I   A sector_b.30  1 NO 0 0 14
329 TAPDDP   = Proportion of investment tax credit deducted from depr. base                                   X.2                1 NO 0 0 14
330 TAPDS    = Tax service life of equipment                                                                  X.2                1 NO 0 0 14
331 TAPDT    = Investment tax credit rate for equipment                                                       X.2                1 NO 0 0 14
332 TAPSAD   = Proportion of investment in nonresidential structures using accelerated depreciation           X.2                1 NO 0 0 14
333 TAPSDA   = Present value of depreciation allowances for nonresidential structures                         I   A sector_b.29  1 NO 0 0 14
334 TAPSSL   = Tax service life of nonresidential structures                                                  X.2                1 NO 0 0 14
335 TFCIN    = Federal corporate income tax accruals, current $                                               I   A sector_h.41  4 NO 0 2 14
336 TFDIV    = Federal income receipts on assets, dividends, current $                                        X.2                4 NO 0 2 14
337 TFIBN    = Federal indirect business tax receipts, current $                                              I   A sector_h.42  4 NO 0 2 14
338 TFPN     = Federal personal income tax and nontax receipts, current $                                     I   A sector_h.43  4 NO 0 2 14
339 TFSIN    = Federal social insurance tax receipts                                                          I   A sector_h.44  4 NO 0 2 14
340 TRFCI    = Average federal corporate income tax rate                                                      B.1 A sector_h.45  1 GV 0 0 14
341 TRFCIM   = Marginal federal corporate income tax rate                                                     X.2                1 NO 0 0 14
342 TRFIB    = Average federal indirect business tax rate                                                     X.2                1 NO 0 0 14
343 TRFP     = Average federal tax rate for personal income tax and nontax receipts                           B.1 A sector_h.46  1 GV 0 0 14
344 TRFPM    = Marginal federal personal income tax rate (at twice median family income)                      X.2                1 NO 0 0 14
345 TRFPT    = Average federal tax rate for personal income tax, trend                                        B   A sector_h.47  1 NO 0 0 14
346 TRFPTX   = Average federal tax rate for personal income tax, trend, policy setting                        X.2                1 NO 0 0 14
347 TRFSI    = Average federal social insurance tax rate                                                      X.3                1 NO 0 0 14
348 TRSCI    = Average S&L corporate income tax rate                                                          B.4 A sector_h.48  1 GV 0 0 15
349 TRSCIT   = Average S&L corporate income tax rate, trend                                                   X.2                1 NO 0 0 15
350 TRSIB    = Average S&L indirect business tax rate                                                         B.4 A sector_h.49  1 GV 0 0 15
351 TRSIBT   = Average S&L indirect business tax rate, trend                                                  X.2                1 NO 0 0 15
352 TRSP     = Average S&L tax rate for personal income tax and nontax receipts                               B.4 A sector_h.50  1 GV 0 0 15
353 TRSPP    = Marginal S&L tax rate on personal property                                                     X.2                1 NO 0 0 15
354 TRSPT    = Trend S&L personal income tax rate                                                             B.2 A sector_h.51  1 NO 0 0 15
355 TRSPTX   = Average state and local tax rate for personal income, trend                                    X.2                1 NO 0 0 15
356 TRSSI    = Average S&L social insurance tax rate                                                          B.4 A sector_h.52  1 GV 0 0 15
357 TRSSIT   = Average S&L social insurance tax rate, trend                                                   X.2                1 NO 0 0 15
358 TRYH     = Average tax rate on household income                                                           I   A sector_h.59  1 NO 0 0 14
359 TSCIN    = S&L corporate income tax accruals, current $                                                   I   A sector_h.53  4 NO 0 2 15
360 TSIBN    = S&L indirect business tax receipts, current $                                                  I   A sector_h.54  4 NO 0 2 15
361 TSPN     = S&L personal income tax and nontax receipts, current $                                         I   A sector_h.55  4 NO 0 2 15
362 TSSIN    = S&L social insurance tax receipts, current $                                                   I   A sector_h.56  4 NO 0 2 15
363 UCES     = Energy share of nominal consumption expenditures                                               B.1 A sector_g.40  4 PR 1 0 28
364 UCFS     = Food share of nominal consumption expenditures                                                 B.1 A sector_g.41  4 PR 1 0 28
365 UEMOT    = Trend in ratio of EMON to XGDEN                                                                X.3                4 NO 0 0 16
366 UEMP     = Multiplicative factor in EMP identity                                                          X.3                4 NO 0 0 16
367 UFCBR    = Multiplicative factor in FCBRN identity                                                        X.3                4 NO 0 0 13
368 UFNIR    = Multiplicative factor in FNIRN identity                                                        X.3                2 NO 0 0 13
369 UFPCM    = Multiplicative factor in FPCM identity                                                         X.2                4 NO 0 0 13
370 UFPXM    = Multiplicative factor in FPXM identity                                                         X.3                4 NO 0 0 13
371 UFTCIN   = Multiplicative factor in FTCIN identity                                                        X.3                4 NO 0 0 13
372 UGFDBT   = Multiplicative factor in GFDBTN identity                                                       X.3                4 NO 0 0 14
373 UGSDBT   = Multiplicative factor in GSDBTN identity                                                       X.3                4 NO 0 0 15
374 UGSINT   = Multiplicative factor in GSINTN identity                                                       X.2                1 NO 0 0 15
375 UGSSUB   = Multiplicative factor in GSSUB identity                                                        X.3                4 NO 0 0 15
376 UJCCA    = Multiplicative factor in JCCAN identity                                                        X.3                4 NO 0 0 21
377 UJCCAC   = Multiplicative factor in JCCACN identity                                                       X.3                4 NO 0 0 21
378 UJYGFE   = Multiplicative factor in JYGFEN identity                                                       X.3                4 NO 0 0 14
379 UJYGFG   = Multiplicative factor in JYGFGN identity                                                       X.2                4 NO 0 0 14
380 UJYGSE   = Multiplicative factor in JYGSEN identity                                                       X.3                4 NO 0 0 15
381 UJYGSG   = Multiplicative factor in JYGSGN identity                                                       X.3                4 NO 0 0 15
382 ULEF     = Multiplicative factor in LEF identity                                                          X.3                4 NO 0 0 14
383 ULES     = Multiplicative factor in LES identity                                                          X.3                4 NO 0 0 15
384 UPCPI    = Multiplicative factor in PCPI identity                                                         X.4                4 NO 0 0 22
385 UPCPIX   = Multiplicative factor in PCPIX identity                                                        X.4                4 NO 0 0 22
386 UPGFL    = Multiplicative factor in PGFL identity                                                         X.4                4 NO 0 0 14
387 UPGSL    = Multiplicative factor in PGSL identity                                                         X.3                4 NO 0 0 15
388 UPKPD    = Multiplicative factor in PKPDR identity                                                        X.3                4 NO 0 0 22
389 UPMP     = Multiplicative factor in PMP identity                                                          X.3                4 NO 0 0 17
390 UPXB     = Multiplicative factor in PXB   identity                                                        X.4                4 NO 0 0 27
391 UQPCT    = Stochastic component of trend ratio of PCNIA to PXP                                            B   A sector_g.30  4 NO 1 0 22
392 UVEOA    = Multiplicative factor in VEOA identity                                                         X.4                4 NO 0 0 16
393 UVPD     = Multiplicative factor in VPD identity                                                          X.2                4 NO 0 0 27
394 UVPI     = Multiplicative factor in VPI identity                                                          X.2                4 NO 0 0 27
395 UVPS     = Multiplicative factor in VPS identity                                                          X.2                4 NO 0 0 27
396 UXBT     = Stochastic component of trend ratio of XGDPT to XBT                                            B   A sector_d.18  4 NO 0 0 18
397 UXENG    = Multiplicative factor in XENG identity                                                         X.3                4 NO 0 0 16
398 UYD      = Multiplicative factor in YDN identity                                                          X.3                4 NO 0 0 23
399 UYHI     = Multiplicative factor in YHIN identity                                                         X.3                4 NO 0 0 23
400 UYHLN    = Multiplicative factor in YHLN identity                                                         X.3                4 NO 0 0 23
401 UYHPTN   = Multiplicative factor in YHPTN identity                                                        X.3                4 NO 0 0 23
402 UYHSN    = Multiplicative factor in personal saving identity (accounts for transfers to foreigners)       X.2                4 NO 0 0 23
403 UYHTN    = Multiplicative factor in YHTN identity                                                         X.3                4 NO 0 0 23
404 UYL      = Multiplicative factor in YLN identity                                                          X.4                4 NO 0 0 23
405 UYNI     = Multiplicative factor in YNIN identity                                                         X.3                4 NO 0 0 23
406 UYNICP   = Multiplicative factor in YNICPN identity                                                       X.2                4 NO 0 0 23
407 UYP      = Multiplicative factor in YPN identity                                                          X.3                4 NO 0 0 23
408 UYSEN    = Multiplicative factor in YSEN identity                                                         X.3                4 NO 0 0 23
409 VEO      = Desired energy-output ratio                                                                    I   A sector_d.13  4 NO 1 0 16
410 VEOA     = Average energy-output ratio of existing capital stock                                          B   A sector_d.14  4 NO 0 0 16
411 VPD      = Desired equipment-output ratio                                                                 B   A sector_b.20  4 NO 1 0  7
412 VPI      = Desired intellectual property-output ratio                                                     B   A sector_b.21  4 NO 1 0  7
413 VPS      = Desired structures-output ratio                                                                B   A sector_b.22  4 NO 1 0  7
414 WDNFCN   = Net financial liabilities, nonfinancial nonfarm corporations                                   B.4 A sector_f.45  4 IN 1 0  5
415 WPO      = Household property wealth ex. stock market, real                                               I   A sector_i.40  4 NO 0 3  5
416 WPON     = Household property wealth ex. stock market, current $                                          I   A sector_i.38  4 NO 0 2  5
417 WPS      = Household stock market wealth, real                                                            I   A sector_i.35  4 NO 0 3  5
418 WPSN     = Household stock market wealth, current $                                                       I   A sector_i.34  4 NO 1 0  5
419 XB       = Business output (BEA definition), cw 2009$                                                     I   A sector_d.8   4 NO 1 0 11
420 XBN      = Business output (BEA definition), current $                                                    I   A sector_f.5   4 NO 0 2 24
421 XBO      = Business output, adjusted for measurement error, cw  2009$                                     I   A sector_d.6   4 NO 1 0 11
422 XBT      = Potential business output, cw 2009$                                                            I   A sector_d.16  4 NO 1 0 18
423 XENG     = Crude energy production, cw 2009$                                                              I   A sector_d.26  4 NO 0 3 16
424 XFS      = Final sales of gross domestic product, cw 2009$                                                I   A sector_d.1   4 NO 1 0 11
425 XFSN     = Final sales of gross domestic product, current $                                               I   A sector_f.3   4 NO 0 2 24
426 XG       = Output of  business sector plus oil imports, cw 2009$                                          I   A sector_d.9   4 NO 1 0 11
427 XGAP     = Output gap for  business plus oil imports  (100*log(actual/potential)                          I   A sector_d.20  1 NO 0 0 19
428 XGAP2    = Output gap for GDP (100*log(actual/potential)                                                  I   A sector_d.21  1 NO 0 0 19
429 XGDE     = Domestic absorption, cw 2009$                                                                  I   A sector_d.4   4 NO 0 0 28
430 XGDEN    = Nominal Absorption, current $                                                                  I   A sector_f.4   1 NO 0 0 24
431 XGDI     = Gross domestic income, cw 2009$                                                                I   A sector_d.27  4 NO 0 3 11
432 XGDIN    = Gross domestic income, current $                                                               I   A sector_f.46  4 NO 0 2 24
433 XGDO     = Gross domestic product, adjusted for measurement error, cw 2009$                               I   A sector_d.28  4 NO 0 3 11
434 XGDP     = GDP, cw 2009$                                                                                  I   A sector_d.2   4 NO 0 3 11
435 XGDPN    = GDP, current $                                                                                 I   A sector_f.2   4 NO 0 2 24
436 XGDPT    = Potential GDP, cw 2009$                                                                        I   A sector_d.17  4 NO 1 0 18
437 XGDPTN   = Potential GDP, current $                                                                       I   A sector_d.25  4 NO 0 1 18
438 XGN      = Output of  business sector plus oil imports, current $                                         I   A sector_f.6   4 NO 0 2 24
439 XGO      = Output of business sector plus oil imports, adjusted for measurement error, cw 2009$           I   A sector_d.5   4 NO 1 0 11
440 XGPOT    = Potential output of  business sector plus oil imports,  cw 2009$                               B   A sector_d.10  4 NO 1 0 18
441 XP       = Final sales plus imports less government labor, cw 2009$                                       I   A sector_d.7   4 NO 1 0 11
442 XPN      = Final sales plus imports less government labor, current $                                      I   A sector_f.1   4 NO 0 2 24
443 YCSN     = Net corporate cash flow with IVA and CCA                                                       B   A sector_f.24  4 NO 0 2 23
444 YDN      = Disposable income                                                                              I   A sector_f.22  4 NO 0 2 23
445 YGFSN    = Federal government saving                                                                      I   A sector_h.57  2 NO 0 2 23
446 YGSSN    = State and Local government saving                                                              I   A sector_h.58  2 NO 0 2 23
447 YH       = Income, household, total (real after-tax)                                                      I   A sector_f.28  4 NO 0 3 23
448 YHGAP    = Income, household, total, ratio to XGDP, cyclical component (real after-tax)                   I   A sector_f.29  1 NO 0 0 23
449 YHIBN    = Consumer interest payments to business                                                         B.4 A sector_f.30  4 IN 1 0 23
450 YHIN     = Income, household, net interest and rent                                                       I   A sector_f.31  4 NO 0 2 23
451 YHL      = Income, household, labor compensation (real after-tax)                                         I   A sector_f.32  4 NO 0 3 23
452 YHLN     = Income, household, labor compensation                                                          I   A sector_f.33  4 NO 0 2 23
453 YHP      = Income, household, property (real after-tax)                                                   I   A sector_f.34  4 NO 0 3 23
454 YHPCD    = Imputed income of the stock of consumer durables, 2009$                                        B   A sector_a.18  4 NO 1 0 23
455 YHPGAP   = Income, household, property, ratio to YH, cyclical component (real after-tax)                  I   A sector_f.35  1 NO 0 0 23
456 YHPNTN   = Income, household, property, non-taxable component                                             I   A sector_f.36  2 NO 0 2 23
457 YHPSHR   = Income, household, property, ratio to YH (real after-tax)                                      I   A sector_f.37  4 NO 0 0 23
458 YHPTN    = Income, household, property, taxable component                                                 I   A sector_f.38  4 NO 0 2 23
459 YHSHR    = Income, household, total, ratio to XGDP (real after-tax)                                       I   A sector_f.39  4 NO 0 0 23
460 YHSN     = Personal saving                                                                                I   A sector_f.40  4 NO 0 2 23
461 YHT      = Income, household, transfer (real after-tax), net basis                                        I   A sector_f.41  4 NO 0 3 23
462 YHTGAP   = Income, household, transfer, ratio to YH, cyclical component (real after-tax)                  I   A sector_f.42  1 NO 0 0 23
463 YHTN     = Income, household, transfer payments. net basis                                                I   A sector_f.43  4 NO 0 2 23
464 YHTSHR   = Income, household, transfer, ratio to YH (real after-tax)                                      I   A sector_f.44  4 NO 0 0 23
465 YKIN     = Income from stock of inventories                                                               I   A sector_f.25  4 NO 0 2 23
466 YKPDN    = Income from stock of equipment                                                                 I   A sector_f.26  4 NO 0 2 23
467 YKPSN    = Income from stock of nonresidential structures                                                 I   A sector_f.27  4 NO 0 2 23
468 YMSDN    = Microsoft one-time dividend payout in 2004Q4                                                   X.7                1 NO 0 0 23
469 YNICPN   = Corporate profits (national income component)                                                  I   A sector_f.20  4 NO 0 2 23
470 YNIDN    = Dividends (national income component)                                                          B.4 A sector_f.19  4 IN 1 0 23
471 YNIIN    = Net interest and rental income (national income component)                                     B.4 A sector_f.17  4 IN 7 0 23
472 YNILN    = Labor income (national income component)                                                       I   A sector_f.15  4 NO 0 2 23
473 YNIN     = National income                                                                                I   A sector_f.14  4 NO 0 2 23
474 YNISEN   = Propprietors' income (national income component)                                               I   A sector_f.16  4 NO 0 2 23
475 YPN      = Personal income                                                                                I   A sector_f.21  4 NO 0 2 23
476 ZDIVGR   = Expected growth rate of real dividends, for WPSN eq. (VAR exp.)                                I   A sector_z.29  1 NO 0 0  2
477 ZECD     = Expected growth rate of target durable consumption, for ECD eq. (VAR exp.)                     I   A sector_z.19  1 NO 0 0 26
478 ZECO     = Expected growth rate of target nondurables and nonhousing services, for ECO eq (VAR exp.)      I   A sector_z.18  1 NO 0 0 26
479 ZEH      = Expected growth rate of target residential investment, for EH eq. (VAR exp.)                   I   A sector_z.21  1 NO 0 0 26
480 ZGAP05   = Expected output gap, for RG5E eq. (VAR exp.)                                                   I   A sector_z.7   1 NO 0 0 26
481 ZGAP10   = Expected output gap, for RG10E eq. (VAR exp.)                                                  I   A sector_z.8   1 NO 0 0 26
482 ZGAP30   = Expected output gap, for RG30E eq. (VAR exp.)                                                  I   A sector_z.9   1 NO 0 0 26
483 ZGAPC2   = Expected output gap, for ECD eq. (VAR exp.)                                                    I   A sector_z.20  1 NO 0 0 26
484 ZLHP     = Expected growth rate of target aggregate hours (VAR exp.)                                      I   A sector_z.22  1 NO 0 0 26
485 ZPI10    = Expected cons. price infl., for RCCH, RRMET, and YHPNTN eqs. (10-yr mat.) (VAR exp.)           I   A sector_z.12  1 NO 0 0 26
486 ZPI10F   = Expected cons. price infl., for FPXR eq. (10-yr mat.) (VAR exp.)                               I   A sector_z.13  1 NO 0 0 26
487 ZPI5     = Expected cons. price infl., for RCCD eq. (5-yr mat.) (VAR exp.)                                I   A sector_z.10  1 NO 0 0 26
488 ZPIB5    = Expected output price infl., for RPD eq. (5-yr mat.) (VAR exp.)                                I   A sector_z.11  1 NO 0 0 26
489 ZPIC30   = Expected cons. price infl., for REQ eq. (30-yr mat.) (VAR exp.)                                I   A sector_z.14  1 NO 0 0 26
490 ZPIC58   = Expected 4-qtr consumer price inflation (8 qtrs. in the future) (VAR exp.)                     I   A sector_z.15  1 NO 0 0 26
491 ZPICXFE  = Expected value of picxfe in the next quarter (VAR exp.)                                        I   A sector_z.16  1 NO 0 0 26
492 ZPIECI   = Expected value of pieci in the next quarter (VAR exp.)                                         I   A sector_z.17  1 NO 0 0 26
493 ZRFF10   = Expected federal funds rate, for RG10E eq. (10-yr mat.) (VAR exp.)                             I   A sector_z.5   1 NO 0 0 26
494 ZRFF30   = Expected federal funds rate, for RG30E eq. (30-yr mat.) (VAR exp.)                             I   A sector_z.6   1 NO 0 0 26
495 ZRFF5    = Expected federal funds rate, for RG5E eq. (5-yr mat.) (VAR exp.)                               I   A sector_z.4   1 NO 0 0 26
496 ZVPD     = Expected growth rate of capital-output ratio, for EPD (VAR exp.)                               I   A sector_z.23  1 NO 0 0 26
497 ZVPI     = Expected growth rate of capital-output ratio, for EPI (VAR exp.)                               I   A sector_z.24  1 NO 0 0 26
498 ZVPS     = Expected growth rate of des. capital-output ratio, for EPS eq. (VAR exp.)                      I   A sector_z.25  1 NO 0 0 26
499 ZXBD     = Expected growth rate of buisiness output for EPD (VAR exp.)                                    I   A sector_z.26  1 NO 0 0 26
500 ZXBI     = Expected growth rate of business output, for EPI (VAR exp.)                                    I   A sector_z.27  1 NO 0 0 26
501 ZXBS     = Expected growth rate of business output, for EPS (VAR exp.)                                    I   A sector_z.28  1 NO 0 0 26
502 ZYH      = Expected level of real after-tax household income, for QEC eq. (VAR exp.)                      I   A sector_z.31  4 NO 0 3 26
503 ZYHP     = Expected level of real after-tax property income, for QEC eq. (VAR exp.)                       I   A sector_z.32  4 NO 0 3 26
504 ZYHPST   = Expected trend share of property income in household income                                    B.7 A sector_z.35  4 NO 0 0 26
505 ZYHST    = Expected trend ratio of household income to GDP                                                B.7 A sector_z.34  4 NO 0 0 26
506 ZYHT     = Expected level of real transfer income, for QEC eq. (VAR exp.)                                 I   A sector_z.33  4 NO 0 3 26
507 ZYHTST   = Expected trend share of transfer income in household income                                    B.7 A sector_z.36  4 NO 0 0 26
508 ZYNID    = Expected rate of growth of target real dividends, for YNIDN eq. (VAR exp.)                     I   A sector_z.30  1 NO 0 0 26
509 ZZZBLANK = empty slot
510 ZZZBLANK = empty slot
511 ZZZBLANK = empty slot
512 ZZZBLANK = empty slot
513 ZZZBLANK = empty slot
514 ZZZBLANK = empty slot
515 ZZZBLANK = empty slot
516 ZZZBLANK = empty slot
517 ZZZBLANK = empty slot
518 ZZZBLANK = empty slot
519 ZZZBLANK = empty slot
520 ZZZBLANK = empty slot
521 ZZZBLANK = empty slot
522 ZZZBLANK = empty slot
523 ZZZBLANK = empty slot
524 ZZZBLANK = empty slot
525 ZZZBLANK = empty slot
526 ZZZBLANK = empty slot
527 ZZZBLANK = empty slot
528 ZZZBLANK = empty slot
529 ZZZBLANK = empty slot
530 ZZZBLANK = empty slot
531 ZZZBLANK = empty slot
532 ZZZBLANK = empty slot
533 ZZZBLANK = empty slot
534 ZZZBLANK = empty slot
535 ZZZBLANK = empty slot
536 ZZZBLANK = empty slot
537 ZZZBLANK = empty slot
538 ZZZBLANK = empty slot
539 ZZZBLANK = empty slot
540 ZZZBLANK = empty slot
541 ZZZBLANK = empty slot
542 ZZZBLANK = empty slot
543 ZZZBLANK = empty slot
544 ZZZBLANK = empty slot
545 ZZZBLANK = empty slot
546 ZZZBLANK = empty slot
547 ZZZBLANK = empty slot
548 ZZZBLANK = empty slot
549 ZZZBLANK = empty slot
550 ZZZBLANK = empty slot
551 ZZZBLANK = empty slot
552 ZZZBLANK = empty slot
553 ZZZBLANK = empty slot
554 ZZZBLANK = empty slot
555 ZZZBLANK = empty slot
556 ZZZBLANK = empty slot
557 ZZZBLANK = empty slot
558 ZZZBLANK = empty slot
559 ZZZBLANK = empty slot
560 ZZZBLANK = empty slot
561 ZZZBLANK = empty slot
562 ZZZBLANK = empty slot
563 ZZZBLANK = empty slot
564 ZZZBLANK = empty slot
565 ZZZBLANK = empty slot
566 ZZZBLANK = empty slot
567 ZZZBLANK = empty slot
568 ZZZBLANK = empty slot
569 ZZZBLANK = empty slot
570 ZZZBLANK = empty slot
571 ZZZBLANK = empty slot
572 ZZZBLANK = empty slot
573 ZZZBLANK = empty slot
574 ZZZBLANK = empty slot
575 ZZZBLANK = empty slot
576 ZZZBLANK = empty slot
577 ZZZBLANK = empty slot
578 ZZZBLANK = empty slot
579 ZZZBLANK = empty slot
580 ZZZBLANK = empty slot
581 ZZZBLANK = empty slot
582 ZZZBLANK = empty slot
583 ZZZBLANK = empty slot
584 ZZZBLANK = empty slot
585 ZZZBLANK = empty slot
586 ZZZBLANK = empty slot
587 ZZZBLANK = empty slot
588 ZZZBLANK = empty slot
589 ZZZBLANK = empty slot
590 ZZZBLANK = empty slot
591 ZZZBLANK = empty slot
592 ZZZBLANK = empty slot
593 ZZZBLANK = empty slot
594 ZZZBLANK = empty slot
595 ZZZBLANK = empty slot
596 ZZZBLANK = empty slot
597 ZZZBLANK = empty slot
598 ZZZBLANK = empty slot
599 ZZZBLANK = empty slot
600 ZZZBLANK = empty slot
601 ZZZBLANK = empty slot
602 ZZZBLANK = empty slot
603 ZZZBLANK = empty slot
604 ZZZBLANK = empty slot
605 ZZZBLANK = empty slot
606 ZZZBLANK = empty slot
607 ZZZBLANK = empty slot
608 ZZZBLANK = empty slot
609 ZZZBLANK = empty slot
610 ZZZBLANK = empty slot
611 ZZZBLANK = empty slot
612 ZZZBLANK = empty slot
613 ZZZBLANK = empty slot
614 ZZZBLANK = empty slot
615 ZZZBLANK = empty slot
616 ZZZBLANK = empty slot
617 ZZZBLANK = empty slot
618 ZZZBLANK = empty slot
619 ZZZBLANK = empty slot
620 ZZZBLANK = empty slot
621 ZZZBLANK = empty slot
622 ZZZBLANK = empty slot
623 ZZZBLANK = empty slot
624 ZZZBLANK = empty slot
625 ZZZBLANK = empty slot
626 ZZZBLANK = empty slot
627 ZZZBLANK = empty slot
628 ZZZBLANK = empty slot
629 ZZZBLANK = empty slot
630 ZZZBLANK = empty slot
631 ZZZBLANK = empty slot
632 ZZZBLANK = empty slot
633 ZZZBLANK = empty slot
634 ZZZBLANK = empty slot
635 ZZZBLANK = empty slot
636 ZZZBLANK = empty slot
637 ZZZBLANK = empty slot
638 ZZZBLANK = empty slot
639 ZZZBLANK = empty slot
640 ZZZBLANK = empty slot
641 ZZZBLANK = empty slot
642 ZZZBLANK = empty slot
643 ZZZBLANK = empty slot
644 ZZZBLANK = empty slot
645 ZZZBLANK = empty slot
646 ZZZBLANK = empty slot
647 ZZZBLANK = empty slot
648 ZZZBLANK = empty slot
649 ZZZBLANK = empty slot
650 ZZZBLANK = empty slot
651 ZZZBLANK = empty slot
652 ZZZBLANK = empty slot
653 ZZZBLANK = empty slot
654 ZZZBLANK = empty slot
655 ZZZBLANK = empty slot
656 ZZZBLANK = empty slot
657 ZZZBLANK = empty slot
658 ZZZBLANK = empty slot
659 ZZZBLANK = empty slot
660 ZZZBLANK = empty slot
661 ZZZBLANK = empty slot
662 ZZZBLANK = empty slot
663 ZZZBLANK = empty slot
664 ZZZBLANK = empty slot
665 ZZZBLANK = empty slot
666 ZZZBLANK = empty slot
667 ZZZBLANK = empty slot
668 ZZZBLANK = empty slot
669 ZZZBLANK = empty slot
670 ZZZBLANK = empty slot
671 ZZZBLANK = empty slot
672 ZZZBLANK = empty slot
673 ZZZBLANK = empty slot
674 ZZZBLANK = empty slot
675 ZZZBLANK = empty slot
676 ZZZBLANK = empty slot
677 ZZZBLANK = empty slot
678 ZZZBLANK = empty slot
679 ZZZBLANK = empty slot
680 ZZZBLANK = empty slot
681 ZZZBLANK = empty slot
682 ZZZBLANK = empty slot
683 ZZZBLANK = empty slot
684 ZZZBLANK = empty slot
685 ZZZBLANK = empty slot
686 ZZZBLANK = empty slot
687 ZZZBLANK = empty slot
688 ZZZBLANK = empty slot
689 ZZZBLANK = empty slot
690 ZZZBLANK = empty slot
691 ZZZBLANK = empty slot
692 ZZZBLANK = empty slot
693 ZZZBLANK = empty slot
694 ZZZBLANK = empty slot
695 ZZZBLANK = empty slot
696 ZZZBLANK = empty slot
697 ZZZBLANK = empty slot
698 ZZZBLANK = empty slot
699 ZZZBLANK = empty slot
700 ZZZBLANK = empty slot
701 ZZZBLANK = empty slot
702 ZZZBLANK = empty slot
703 ZZZBLANK = empty slot
704 ZZZBLANK = empty slot
705 ZZZBLANK = empty slot
706 ZZZBLANK = empty slot
707 ZZZBLANK = empty slot
708 ZZZBLANK = empty slot
709 ZZZBLANK = empty slot
710 ZZZBLANK = empty slot
711 ZZZBLANK = empty slot
712 ZZZBLANK = empty slot
713 ZZZBLANK = empty slot
714 ZZZBLANK = empty slot
715 ZZZBLANK = empty slot
716 ZZZBLANK = empty slot
717 ZZZBLANK = empty slot
718 ZZZBLANK = empty slot
719 ZZZBLANK = empty slot
720 ZZZBLANK = empty slot
721 ZZZBLANK = empty slot
722 ZZZBLANK = empty slot
723 ZZZBLANK = empty slot
724 ZZZBLANK = empty slot
725 ZZZBLANK = empty slot
726 ZZZBLANK = empty slot
727 ZZZBLANK = empty slot
728 ZZZBLANK = empty slot
729 ZZZBLANK = empty slot
730 ZZZBLANK = empty slot
731 ZZZBLANK = empty slot
732 ZZZBLANK = empty slot
733 ZZZBLANK = empty slot
734 ZZZBLANK = empty slot
735 ZZZBLANK = empty slot
736 ZZZBLANK = empty slot
737 ZZZBLANK = empty slot
738 ZZZBLANK = empty slot
739 ZZZBLANK = empty slot
740 ZZZBLANK = empty slot
741 ZZZBLANK = empty slot
742 ZZZBLANK = empty slot
743 ZZZBLANK = empty slot
744 ZZZBLANK = empty slot
745 ZZZBLANK = empty slot
746 ZZZBLANK = empty slot
747 ZZZBLANK = empty slot
748 ZZZBLANK = empty slot
749 ZZZBLANK = empty slot
750 ZZZBLANK = empty slot
751 ZZZBLANK = empty slot
752 ZZZBLANK = empty slot
753 ZZZBLANK = empty slot
754 ZZZBLANK = empty slot
755 ZZZBLANK = empty slot
756 ZZZBLANK = empty slot
757 ZZZBLANK = empty slot
758 ZZZBLANK = empty slot
759 ZZZBLANK = empty slot
760 ZZZBLANK = empty slot
761 ZZZBLANK = empty slot
762 ZZZBLANK = empty slot
763 ZZZBLANK = empty slot
764 ZZZBLANK = empty slot
765 ZZZBLANK = empty slot
766 ZZZBLANK = empty slot
767 ZZZBLANK = empty slot
768 ZZZBLANK = empty slot
769 ZZZBLANK = empty slot
770 ZZZBLANK = empty slot
771 ZZZBLANK = empty slot
772 ZZZBLANK = empty slot
773 ZZZBLANK = empty slot
774 ZZZBLANK = empty slot
775 ZZZBLANK = empty slot
776 ZZZBLANK = empty slot
777 ZZZBLANK = empty slot
778 ZZZBLANK = empty slot
779 ZZZBLANK = empty slot
780 ZZZBLANK = empty slot
781 ZZZBLANK = empty slot
782 ZZZBLANK = empty slot
783 ZZZBLANK = empty slot
784 ZZZBLANK = empty slot
785 ZZZBLANK = empty slot
786 ZZZBLANK = empty slot
787 ZZZBLANK = empty slot
788 ZZZBLANK = empty slot
789 ZZZBLANK = empty slot
790 ZZZBLANK = empty slot
791 ZZZBLANK = empty slot
792 ZZZBLANK = empty slot
793 ZZZBLANK = empty slot
794 ZZZBLANK = empty slot
795 ZZZBLANK = empty slot
796 ZZZBLANK = empty slot
797 ZZZBLANK = empty slot
798 ZZZBLANK = empty slot
799 ZZZBLANK = empty slot
800 ZZZBLANK = empty slot
801 ZZZBLANK = empty slot
802 ZZZBLANK = empty slot
803 ZZZBLANK = empty slot
804 ZZZBLANK = empty slot
805 ZZZBLANK = empty slot
806 ZZZBLANK = empty slot
807 ZZZBLANK = empty slot
808 ZZZBLANK = empty slot
809 ZZZBLANK = empty slot
810 ZZZBLANK = empty slot
811 ZZZBLANK = empty slot
812 ZZZBLANK = empty slot
813 ZZZBLANK = empty slot
814 ZZZBLANK = empty slot
815 ZZZBLANK = empty slot
816 ZZZBLANK = empty slot
817 ZZZBLANK = empty slot
818 ZZZBLANK = empty slot
819 ZZZBLANK = empty slot
820 ZZZBLANK = empty slot
821 ZZZBLANK = empty slot
822 ZZZBLANK = empty slot
823 ZZZBLANK = empty slot
824 ZZZBLANK = empty slot
825 ZZZBLANK = empty slot
826 ZZZBLANK = empty slot
827 ZZZBLANK = empty slot
828 ZZZBLANK = empty slot
829 ZZZBLANK = empty slot
830 ZZZBLANK = empty slot
831 ZZZBLANK = empty slot
832 ZZZBLANK = empty slot
833 ZZZBLANK = empty slot
834 ZZZBLANK = empty slot
835 ZZZBLANK = empty slot
836 ZZZBLANK = empty slot
837 ZZZBLANK = empty slot
838 ZZZBLANK = empty slot
839 ZZZBLANK = empty slot
840 ZZZBLANK = empty slot
841 ZZZBLANK = empty slot
842 ZZZBLANK = empty slot
843 ZZZBLANK = empty slot
844 ZZZBLANK = empty slot
845 ZZZBLANK = empty slot
846 ZZZBLANK = empty slot
847 ZZZBLANK = empty slot
848 ZZZBLANK = empty slot
849 ZZZBLANK = empty slot
850 ZZZBLANK = empty slot
851 ZZZBLANK = empty slot
852 ZZZBLANK = empty slot
853 ZZZBLANK = empty slot
854 ZZZBLANK = empty slot
855 ZZZBLANK = empty slot
856 ZZZBLANK = empty slot
857 ZZZBLANK = empty slot
858 ZZZBLANK = empty slot
859 ZZZBLANK = empty slot
860 ZZZBLANK = empty slot
861 ZZZBLANK = empty slot
862 ZZZBLANK = empty slot
863 ZZZBLANK = empty slot
864 ZZZBLANK = empty slot
865 ZZZBLANK = empty slot
866 ZZZBLANK = empty slot
867 ZZZBLANK = empty slot
868 ZZZBLANK = empty slot
869 ZZZBLANK = empty slot
870 ZZZBLANK = empty slot
871 ZZZBLANK = empty slot
872 ZZZBLANK = empty slot
873 ZZZBLANK = empty slot
874 ZZZBLANK = empty slot
875 ZZZBLANK = empty slot
876 ZZZBLANK = empty slot
877 ZZZBLANK = empty slot
878 ZZZBLANK = empty slot
879 ZZZBLANK = empty slot
880 ZZZBLANK = empty slot
881 ZZZBLANK = empty slot
882 ZZZBLANK = empty slot
883 ZZZBLANK = empty slot
884 ZZZBLANK = empty slot
885 ZZZBLANK = empty slot
886 ZZZBLANK = empty slot
887 ZZZBLANK = empty slot
888 ZZZBLANK = empty slot
889 ZZZBLANK = empty slot
890 ZZZBLANK = empty slot
891 ZZZBLANK = empty slot
892 ZZZBLANK = empty slot
893 ZZZBLANK = empty slot
894 ZZZBLANK = empty slot
895 ZZZBLANK = empty slot
896 ZZZBLANK = empty slot
897 ZZZBLANK = empty slot
898 ZZZBLANK = empty slot
899 ZZZBLANK = empty slot
900 ZZZBLANK = empty slot
@

\section{Standard Version Equations File}

<<stdver.eqs.txt>>=
<<equation ceng>>
<<equation delrff>>
<<equation dmptlur>>
<<equation dmptmax>>
<<equation dmptpi>>
<<equation dmptr>>
<<equation dpadj>>
<<equation dpgap>>
<<equation ec>>
<<equation ecd>>
<<equation ech>>
<<equation ecnia>>
<<equation ecnian>>
<<equation eco>>
<<equation egf>>
<<equation egfi>>
<<equation egfin>>
<<equation egfit>>
<<equation egfl>>
<<equation egfln>>
<<equation egflt>>
<<equation egfn>>
<<equation egfo>>
<<equation egfon>>
<<equation egfot>>
<<equation egpdin>>
<<equation egs>>
<<equation egsi>>
<<equation egsin>>
<<equation egsit>>
<<equation egsl>>
<<equation egsln>>
<<equation egslt>>
<<equation egsn>>
<<equation egso>>
<<equation egson>>
<<equation egsot>>
<<equation eh>>
<<equation ehn>>
<<equation ei>>
<<equation ein>>
<<equation em>>
<<equation emn>>
<<equation emo>>
<<equation emon>>
<<equation emp>>
<<equation empn>>
<<equation empt>>
<<equation epd>>
<<equation epdn>>
<<equation epi>>
<<equation epin>>
<<equation eps>>
<<equation epsn>>
<<equation ex>>
<<equation exn>>
<<equation fcbn>>
<<equation fcbrn>>
<<equation fgdp>>
<<equation fgdpt>>
<<equation fnicn>>
<<equation fniln>>
<<equation fnin>>
<<equation fnirn>>
<<equation fpc>>
<<equation fpcm>>
<<equation fpi10>>
<<equation fpi10t>>
<<equation fpic>>
<<equation fpx>>
<<equation fpxm>>
<<equation fpxr>>
<<equation fpxrr>>
<<equation frl10>>
<<equation frs10>>
<<equation frstar>>
<<equation ftcin>>
<<equation fxgap>>
<<equation fynicn>>
<<equation fyniln>>
<<equation fynin>>
<<equation gfdbtn>>
<<equation gfintn>>
<<equation gfs>>
<<equation gfsn>>
<<equation gfsrpn>>
<<equation gfsub>>
<<equation gfsubn>>
<<equation gft>>
<<equation gftn>>
<<equation gftrd>>
<<equation gsdbtn>>
<<equation gsintn>>
<<equation gssrpn>>
<<equation gssub>>
<<equation gssubn>>
<<equation gst>>
<<equation gstn>>
<<equation gstrd>>
<<equation hgemp>>
<<equation hggdp>>
<<equation hggdpt>>
<<equation hgpdr>>
<<equation hgpir>>
<<equation hgpkir>>
<<equation hgppsr>>
<<equation hgvpd>>
<<equation hgvpi>>
<<equation hgvps>>
<<equation hgx>>
<<equation hgynid>>
<<equation hks>>
<<equation hlept>>
<<equation hlprdt>>
<<equation hmfpt>>
<<equation hqlfpr>>
<<equation hqlww>>
<<equation huqpct>>
<<equation huxb>>
<<equation hxbt>>
<<equation jccacn>>
<<equation jccan>>
<<equation jkcd>>
<<equation jygfen>>
<<equation jygfgn>>
<<equation jygsen>>
<<equation jygsgn>>
<<equation jyncn>>
<<equation kcd>>
<<equation kh>>
<<equation ki>>
<<equation kpd>>
<<equation kpi>>
<<equation kps>>
<<equation ks>>
<<equation lef>>
<<equation left>>
<<equation leh>>
<<equation leo>>
<<equation lep>>
<<equation leppot>>
<<equation les>>
<<equation lest>>
<<equation lf>>
<<equation lfpr>>
<<equation lhp>>
<<equation lprdt>>
<<equation lur>>
<<equation lurbls>>
<<equation lurnat>>
<<equation lww>>
<<equation mei>>
<<equation mep>>
<<equation mfpt>>
<<equation pcdr>>
<<equation pceng>>
<<equation pcengr>>
<<equation pcer>>
<<equation pcfr>>
<<equation pchr>>
<<equation pcnia>>
<<equation pcor>>
<<equation pcpi>>
<<equation pcpix>>
<<equation pcxfe>>
<<equation pgdp>>
<<equation pgfir>>
<<equation pgfl>>
<<equation pgfor>>
<<equation pgsir>>
<<equation pgsl>>
<<equation pgsor>>
<<equation phouse>>
<<equation phr>>
<<equation pic4>>
<<equation picngr>>
<<equation picnia>>
<<equation picx4>>
<<equation picxfe>>
<<equation pieci>>
<<equation pigdp>>
<<equation pipl>>
<<equation pipxnc>>
<<equation pkpdr>>
<<equation pl>>
<<equation plmin>>
<<equation pmo>>
<<equation pmp>>
<<equation poil>>
<<equation poilr>>
<<equation ppdr>>
<<equation ppir>>
<<equation ppsr>>
<<equation ptr>>
<<equation pwstar>>
<<equation pxb>>
<<equation pxg>>
<<equation pxnc>>
<<equation pxp>>
<<equation pxr>>
<<equation qec>>
<<equation qecd>>
<<equation qeco>>
<<equation qeh>>
<<equation qepd>>
<<equation qepi>>
<<equation qeps>>
<<equation qkir>>
<<equation qlep>>
<<equation qlf>>
<<equation qlfpr>>
<<equation qlhp>>
<<equation qlww>>
<<equation qpcnia>>
<<equation qpl>>
<<equation qpmo>>
<<equation qpxg>>
<<equation qpxnc>>
<<equation qpxp>>
<<equation qynidn>>
<<equation rbbb>>
<<equation rbbbe>>
<<equation rbbbp>>
<<equation rcar>>
<<equation rccd>>
<<equation rcch>>
<<equation rcgain>>
<<equation req>>
<<equation reqp>>
<<equation rff>>
<<equation rffalt>>
<<equation rffe>>
<<equation rffgen>>
<<equation rffintay>>
<<equation rffrule>>
<<equation rfftay>>
<<equation rfftlr>>
<<equation rfynic>>
<<equation rfynil>>
<<equation rg10>>
<<equation rg10e>>
<<equation rg10p>>
<<equation rg30>>
<<equation rg30e>>
<<equation rg30p>>
<<equation rg5>>
<<equation rg5e>>
<<equation rg5p>>
<<equation rgfint>>
<<equation rgw>>
<<equation rme>>
<<equation rpd>>
<<equation rrffe>>
<<equation rrmet>>
<<equation rrtr>>
<<equation rspnia>>
<<equation rstar>>
<<equation rtb>>
<<equation rtbe>>
<<equation rtinv>>
<<equation rtpd>>
<<equation rtpi>>
<<equation rtps>>
<<equation rtr>>
<<equation tapdd>>
<<equation tapsda>>
<<equation tfcin>>
<<equation tfibn>>
<<equation tfpn>>
<<equation tfsin>>
<<equation trfci>>
<<equation trfp>>
<<equation trfpt>>
<<equation trsci>>
<<equation trsib>>
<<equation trsp>>
<<equation trspt>>
<<equation trssi>>
<<equation tryh>>
<<equation tscin>>
<<equation tsibn>>
<<equation tspn>>
<<equation tssin>>
<<equation uces>>
<<equation ucfs>>
<<equation uqpct>>
<<equation uxbt>>
<<equation veo>>
<<equation veoa>>
<<equation vpd>>
<<equation vpi>>
<<equation vps>>
<<equation wdnfcn>>
<<equation wpo>>
<<equation wpon>>
<<equation wps>>
<<equation wpsn>>
<<equation xb>>
<<equation xbn>>
<<equation xbo>>
<<equation xbt>>
<<equation xeng>>
<<equation xfs>>
<<equation xfsn>>
<<equation xg>>
<<equation xgap>>
<<equation xgap2>>
<<equation xgde>>
<<equation xgden>>
<<equation xgdi>>
<<equation xgdin>>
<<equation xgdo>>
<<equation xgdp>>
<<equation xgdpn>>
<<equation xgdpt>>
<<equation xgdptn>>
<<equation xgn>>
<<equation xgo>>
<<equation xgpot>>
<<equation xp>>
<<equation xpn>>
<<equation ycsn>>
<<equation ydn>>
<<equation ygfsn>>
<<equation ygssn>>
<<equation yh>>
<<equation yhgap>>
<<equation yhibn>>
<<equation yhin>>
<<equation yhl>>
<<equation yhln>>
<<equation yhp>>
<<equation yhpcd>>
<<equation yhpgap>>
<<equation yhpntn>>
<<equation yhpshr>>
<<equation yhptn>>
<<equation yhshr>>
<<equation yhsn>>
<<equation yht>>
<<equation yhtgap>>
<<equation yhtn>>
<<equation yhtshr>>
<<equation ykin>>
<<equation ykpdn>>
<<equation ykpsn>>
<<equation ynicpn>>
<<equation ynidn>>
<<equation yniin>>
<<equation yniln>>
<<equation ynin>>
<<equation ynisen>>
<<equation ypn>>
<<equation zdivgr>>
<<equation zecd>>
<<equation zeco>>
<<equation zeh>>
<<equation zgap05>>
<<equation zgap10>>
<<equation zgap30>>
<<equation zgapc2>>
<<equation zlhp>>
<<equation zpi10>>
<<equation zpi10f>>
<<equation zpi5>>
<<equation zpib5>>
<<equation zpic30>>
<<equation zpic58>>
<<equation zpicxfe>>
<<equation zpieci>>
<<equation zrff10>>
<<equation zrff30>>
<<equation zrff5>>
<<equation zvpd>>
<<equation zvpi>>
<<equation zvps>>
<<equation zxbd>>
<<equation zxbi>>
<<equation zxbs>>
<<equation zyh>>
<<equation zyhp>>
<<equation zyhpst>>
<<equation zyhst>>
<<equation zyht>>
<<equation zyhtst>>
<<equation zynid>>
theend
@

\section{Standard Version Coefficients File}

<<stdver.coeffs.txt>>=

<<coefficient y{\_}ceng>>
<<coefficient y{\_}dmptlur>>
<<coefficient y{\_}dmptpi>>
<<coefficient y{\_}dpadj>>
<<coefficient y{\_}ecd>>
<<coefficient y{\_}ech>>
<<coefficient y{\_}eco>>
<<coefficient y{\_}egfi>>
<<coefficient y{\_}egfit>>
<<coefficient y{\_}egfl>>
<<coefficient y{\_}egflt>>
<<coefficient y{\_}egfo>>
<<coefficient y{\_}egfot>>
<<coefficient y{\_}egsi>>
<<coefficient y{\_}egsit>>
<<coefficient y{\_}egsl>>
<<coefficient y{\_}egslt>>
<<coefficient y{\_}egso>>
<<coefficient y{\_}egsot>>
<<coefficient y{\_}eh>>
<<coefficient y{\_}emo>>
<<coefficient y{\_}empt>>
<<coefficient y{\_}epd>>
<<coefficient y{\_}epi>>
<<coefficient y{\_}eps>>
<<coefficient y{\_}ex>>
<<coefficient y{\_}fgdpt>>
<<coefficient y{\_}fpi10>>
<<coefficient y{\_}fpi10t>>
<<coefficient y{\_}fpic>>
<<coefficient y{\_}fpxr>>
<<coefficient y{\_}fpxrr>>
<<coefficient y{\_}frl10>>
<<coefficient y{\_}frs10>>
<<coefficient y{\_}frstar>>
<<coefficient y{\_}fxgap>>
<<coefficient y{\_}gfs>>
<<coefficient y{\_}gfsub>>
<<coefficient y{\_}gftrd>>
<<coefficient y{\_}gstrd>>
<<coefficient y{\_}hgemp>>
<<coefficient y{\_}hgpdr>>
<<coefficient y{\_}hgpir>>
<<coefficient y{\_}hgpkir>>
<<coefficient y{\_}hgppsr>>
<<coefficient y{\_}hgvpd>>
<<coefficient y{\_}hgvpi>>
<<coefficient y{\_}hgvps>>
<<coefficient y{\_}hmfpt>>
<<coefficient y{\_}hqlfpr>>
<<coefficient y{\_}hqlww>>
<<coefficient y{\_}huqpct>>
<<coefficient y{\_}huxb>>
<<coefficient y{\_}ki>>
<<coefficient y{\_}left>>
<<coefficient y{\_}leo>>
<<coefficient y{\_}lest>>
<<coefficient y{\_}lfpr>>
<<coefficient y{\_}lhp>>
<<coefficient y{\_}lww>>
<<coefficient y{\_}mei>>
<<coefficient y{\_}mep>>
<<coefficient y{\_}mfpt>>
<<coefficient y{\_}pcdr>>
<<coefficient y{\_}pcengr>>
<<coefficient y{\_}pcer>>
<<coefficient y{\_}pcfr>>
<<coefficient y{\_}pchr>>
<<coefficient y{\_}pgfir>>
<<coefficient y{\_}pgfor>>
<<coefficient y{\_}pgsir>>
<<coefficient y{\_}pgsor>>
<<coefficient y{\_}phouse>>
<<coefficient y{\_}phr>>
<<coefficient y{\_}picxfe>>
<<coefficient y{\_}pieci>>
<<coefficient y{\_}pipxnc>>
<<coefficient y{\_}pmo>>
<<coefficient y{\_}poilr>>
<<coefficient y{\_}ppdr>>
<<coefficient y{\_}ppsr>>
<<coefficient y{\_}ptr>>
<<coefficient y{\_}pwstar>>
<<coefficient y{\_}pxr>>
<<coefficient y{\_}qec>>
<<coefficient y{\_}qecd>>
<<coefficient y{\_}qeco>>
<<coefficient y{\_}qeh>>
<<coefficient y{\_}qepd>>
<<coefficient y{\_}qepi>>
<<coefficient y{\_}qeps>>
<<coefficient y{\_}qkir>>
<<coefficient y{\_}qpl>>
<<coefficient y{\_}qpmo>>
<<coefficient y{\_}qpxg>>
<<coefficient y{\_}qpxnc>>
<<coefficient y{\_}qynidn>>
<<coefficient y{\_}rbbbp>>
<<coefficient y{\_}rcar>>
<<coefficient y{\_}rcgain>>
<<coefficient y{\_}reqp>>
<<coefficient y{\_}rffalt>>
<<coefficient y{\_}rffgen>>
<<coefficient y{\_}rffintay>>
<<coefficient y{\_}rfftay>>
<<coefficient y{\_}rfftlr>>
<<coefficient y{\_}rfynic>>
<<coefficient y{\_}rfynil>>
<<coefficient y{\_}rg10p>>
<<coefficient y{\_}rg30p>>
<<coefficient y{\_}rg5p>>
<<coefficient y{\_}rgfint>>
<<coefficient y{\_}rgw>>
<<coefficient y{\_}rme>>
<<coefficient y{\_}rrmet>>
<<coefficient y{\_}rrtr>>
<<coefficient y{\_}rstar>>
<<coefficient y{\_}rtbe>>
<<coefficient y{\_}trfci>>
<<coefficient y{\_}trfp>>
<<coefficient y{\_}trfpt>>
<<coefficient y{\_}trsci>>
<<coefficient y{\_}trsib>>
<<coefficient y{\_}trsp>>
<<coefficient y{\_}trspt>>
<<coefficient y{\_}trssi>>
<<coefficient y{\_}uces>>
<<coefficient y{\_}ucfs>>
<<coefficient y{\_}uqpct>>
<<coefficient y{\_}uxbt>>
<<coefficient y{\_}veoa>>
<<coefficient y{\_}wdnfcn>>
<<coefficient y{\_}xbo>>
<<coefficient y{\_}xgo>>
<<coefficient y{\_}xgpot>>
<<coefficient y{\_}yhibn>>
<<coefficient y{\_}yhpcd>>
<<coefficient y{\_}ynidn>>
<<coefficient y{\_}yniin>>
<<coefficient y{\_}zdivgr>>
<<coefficient y{\_}zecd>>
<<coefficient y{\_}zeco>>
<<coefficient y{\_}zeh>>
<<coefficient y{\_}zgap05>>
<<coefficient y{\_}zgap10>>
<<coefficient y{\_}zgap30>>
<<coefficient y{\_}zgapc2>>
<<coefficient y{\_}zlhp>>
<<coefficient y{\_}zpi10>>
<<coefficient y{\_}zpi5>>
<<coefficient y{\_}zpib5>>
<<coefficient y{\_}zpic30>>
<<coefficient y{\_}zpic58>>
<<coefficient y{\_}zpicxfe>>
<<coefficient y{\_}zpieci>>
<<coefficient y{\_}zrff10>>
<<coefficient y{\_}zrff30>>
<<coefficient y{\_}zrff5>>
<<coefficient y{\_}zvpd>>
<<coefficient y{\_}zvpi>>
<<coefficient y{\_}zvps>>
<<coefficient y{\_}zxbd>>
<<coefficient y{\_}zxbi>>
<<coefficient y{\_}zxbs>>
<<coefficient y{\_}zyh>>
<<coefficient y{\_}zyhp>>
<<coefficient y{\_}zyhpst>>
<<coefficient y{\_}zyhst>>
<<coefficient y{\_}zyht>>
<<coefficient y{\_}zyhtst>>
<<coefficient y{\_}zynid>>
theend
@

\chapter{Notes, Bibliography and Indexes}

\section{Chunks}
\nowebchunks

\section{Index}
\nowebindex

\end{appendices}

\end{document}