*
* Example page 70
*
calendar(q) 1947:1
*
open data ch02_usgdp_q(47-03).txt
data(format=free,org=columns) 1947:1 2003:4 year quarter gdp
*
set lngdp = log(gdp)
difference lngdp / diffgdp
*
spgraph(vfields=2,hfields=2,footer="Figure 2.11 Log series of U.S. quarterly GDP")
graph(header="(a)")
# lngdp
*
correlate(corrs=corrl) lngdp
graph(header="(b)",style=bargraph,number=0,max=1.0,min=-0.1) 1
# corrl 1 17
*
graph(header="(c)")
# diffgdp
*
correlate(number=16,partial=partd) diffgdp
graph(header="(d)",style=bargraph,number=1,max=0.5,min=-0.2) 1
# partd 2 *
spgraph(done)