*
* Examples from page 825
* Error Correction Model
*
cal(q) 1970
open data table21-1.prn
data(format=prn,org=columns) 1970:1 1991:4
*
* Estimate the cointegrating relation
*
linreg pce / u
# constant pdi
set dpce = pce-pce{1}
set dpdi = pdi-pdi{1}
linreg dpce
# constant dpdi u{1}