*
* Examples of data from pp 326-327
*
open data usa.dat
calendar(q) 1985
data(format=free,org=columns) 1985:01 2005:01 gdp inf f b
*
set cgdp = gdp-gdp{1}
spgraph(hfields=2)
graph(hlabel="(a) Real GDP")
# gdp
graph(hlabel="(b) Change in GDP")
# cgdp
spgraph(done)
*
set cinf = inf-inf{1}
spgraph(hfields=2)
graph(hlabel="(c) Inflation rate")
# inf
graph(hlabel="(d) Change in inflation rate")
# cinf
spgraph(done)
*
set cf = f-f{1}
spgraph(hfields=2)
graph(hlabel="(e) Federal funds rate")
# f
graph(hlabel="(f) Change in Federal Funds rate")
# cf
spgraph(done)
*
set cb = b-b{1}
spgraph(hfields=2)
graph(hlabel="(g) 3-year Bond rate")
# b
graph(hlabel="(h) Change in Bond rate")
# cb
spgraph(done)
*
* Comparison of statistics over different intervals
*
table 1985:1 1994:4
table 1995:1 2004:4