来自systemfit包的Klein I模型示例
## Repeating the estimations of Klein's (1950) Model I
## in Greene (2003, pp. 381 and 412)
data( "KleinI" )
eqConsump <- consump ~ corpProf + corpProfLag + wages
eqInvest <- invest ~ corpProf + corpProfLag + capitalLag
eqPrivWage <- privWage ~ gnp + gnpLag + trend
inst <- ~ govExp + taxes + govWage + trend + capitalLag + corpProfLag + gnpLag
system <- list( Consumption = eqConsump, Investment = eqInvest,
PrivateWages = eqPrivWage )
# 2SLS
klein2sls <- systemfit( system, "2SLS", inst = inst, data = KleinI,
methodResidCov = "noDfCor" )
summary( klein2sls )
我想明确包含身份方程（限制），而不是将它们替换掉。
带有恒等式的Klein I模型在这里：http://davegiles.blogspot.cz/2012/05/estimating-simulating-sem.html，以及EViews中模型的估计。我一直在使用这个EViews示例（以及身份方程）来教授计量经济学。
现在，我正在将我的计量经济实验室“翻译”给R，我有点卡住了。在搜索了systemfit和sem packages的帮助之后，似乎将身份替换为R是唯一的出路。
如果我错过了什么，请告诉我。