*
* Example 12.1 from page 397
*
cal 1948
open data phillips.raw
data(org=columns) 1948:1 1996:1 year unem inf unem_1 inf_1 unem_2 inf_2 cunem $
  cinf cunem_1 cinf_1
*
* Static Phillips curve
*
linreg inf / sresids
# constant unem
*
* Auxiliary regression for testing for serial correlation
*
linreg sresids
# constant sresids{1}
*
* Expectations-augmented Phillips curve
*
set cinf = inf-inf{1}
linreg cinf / eresids
# constant unem
linreg eresids
# constant eresids{1}