*
* Example from section 22.9, pages 848-852
*
cal(q) 1979
open data table17-3.prn
data(format=prn,org=columns) 1979:1 1998:4
table
*
system(model=canmodel)
variables m1 r
lags 1 to 4
det constant
end(system)
*
estimate * 1987:4