*
* Example from page 187, section 6.7
* Phillips' curve
*
cal 1960
open data table6-5.prn
data(format=prn,org=columns) 1960:1 1998:1
*
set dpi = inflrate-inflrate{1}
linreg dpi
# constant unrate
*
disp "Estimate of Natural Rate" -%beta(1)/%beta(2)
*
set recunrate = 1.0/unrate
linreg dpi
# constant recunrate