*
*  Example SUR.PRG
*  Manual Example 5.6
*
cal 1935
allocate 1954:1
open data grunfeld.wks
data(org=obs,format=wks) / ige fge cge iwest fwest cwest
*
equation  geeq  ige
# constant  fge   cge
equation  westeq  iwest
# constant  fwest cwest
*
linreg(equation=geeq)  ige
linreg(equation=westeq)  iwest 
*
sur(vcv)   2 
# geeq
# westeq
*
sur 2 / equate 2 3
# geeq
# westeq