* RATS program to graph gdp components
calendar 1947 1 4
compute capt = 2008:4
open data gdp2.prn
data(org=obs) 1947:2 capt date1 gdp cons nonres struc equip res nber

spgraph(vfields=4)
graph(header='GDP',dates,shading=nber) 1
# gdp
graph(header='Consumption',dates,samesize,shading=nber) 1
# cons
graph(header='Nonresidential fixed investment',dates,samesize,shading=nber) 1
# nonres
graph(header='Residential fixed investment',dates,samesize,shading=nber) 1
# res
spgraph(done)