*
* PHARMDEM.DAT example from pp 340-343
*
open data pharmdem.dat
cal(m) 1980
data(format=free,org=columns) 1980:1 1992:12 pharmdem
*
graph(footer="Figure 8-5 Drug Demand")
# pharmdem
@bjident pharmdem
*
boxjenk(sdiffs=1,const,ar=0,ma=0) pharmdem
graph(footer="Figure 8-6 Residuals from (0,1,0)s")
# %resids
@regcorrs