*
* Generation of figure 1.1, page 2
*
* Data file saving.asc
*
* GYD     Disposable personal income (billions of $, SAAR)
* GYDQ    Real disposable personal income (billions of 87$, SAAR)
* GPSAV   Personal saving (billions of $, SAAR)
*
* The derived series are:
* INC = GYDQ
* SAV = (GPSAV*GYDQ)/GYD
*     = Real personal saving
*
cal(q) 1959:1
open data saving.asc
data(format=prn,org=columns) 1959:1 1992:1 gyd gydq gpsav inc sav
table
graph(keys=upleft,Header="Real Personal Saving and Real Disposable Personal Income",$
      subheader="(Billions of 1987 dollars)",overlay=line) 2
# sav
# inc
scatter(vlabel="SAV",hlabel="INC") 1
# inc sav