在 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 包的帮助后，似乎替换身份是 R 中唯一的方法。
如果我错过了什么，请告诉我。