2
我使用memisc
包中的mtable取得了一些成功,可以并行排列多个回归结果(APSR样式),但我无法获得相同的结果命令可以从MASS
包中选择lrm()
,包可以从robustbase
包中选择。回归表R
伟大工程:
lm0 <- lm(sr ~ pop15 + pop75, data = LifeCycleSavings)
lm1 <- lm(sr ~ dpi + ddpi, data = LifeCycleSavings)
lm2 <- lm(sr ~ pop15 + pop75 + dpi + ddpi, data = LifeCycleSavings)
mtable123 <- mtable("Model 1"=lm0,"Model 2"=lm1,"Model 3"=lm2)
未能在mtable()
命令("Error in qt(p, df, lower.tail, log.p): Non-numeric argument to mathematical function")
:
rlm0 <- rlm(sr ~ pop15 + pop75, data = LifeCycleSavings)
rlm1 <- rlm(sr ~ dpi + ddpi, data = LifeCycleSavings)
rlm2 <- rlm(sr ~ pop15 + pop75 + dpi + ddpi, data = LifeCycleSavings)
mtable123 <- mtable("Model 1"=rlm0, "Model 2"=rlm1, "Model 3"=rlm2)
未能在mtable()
命令():
lmrob0 <- lmrob(sr ~ pop15 + pop75, data = LifeCycleSavings)
lmrob1 <- lmrob(sr ~ dpi + ddpi, data = LifeCycleSavings)
lmrob2 <- lmrob(sr ~ pop15 + pop75 + dpi + ddpi, data = LifeCycleSavings)
mtable123 <- mtable("Model 1"=lmrob0, "Model 2"=lmrob1, "Model 3"=lmrob2)
我打开的建议不涉及mtable,但我是罗用于纯文本或制表符分隔的输出(换句话说,不是LaTeX)。
哇 - 这正是我需要的!感谢代码。 一个问题:第4行应该是“系数< - cbind(coef(obj_summary),dt(coef(obj_summary)[,3],df = obj_summary $ df))”,对吗? –