r - 从 R 中的 coeftest 对象创建乳胶表

Question

我有一个coeftest类对象，我为某些lm类无法实现的目的而编码，但我需要以xtable( lm) 的方式导出对象。任何想法将不胜感激！

Answer 1

我认为这可以帮助你：

library(AER) # I think coeftest() belongs to this package.
library(Hmisc)
latex(coeftest(model), digits=5)

哪里model是由 估计的线性模型lm()。latex()是Hmisc包中的一个函数，它比xtable.

如果这不是您要查找的内容，请提供一些数据和预期结果，以便我们找出答案。

Answer 2

library(stargazer)
stargazer(model, se=coeftest(model), report=vcs)

模型是线性模型。至少根据我的经验，stargazer 比 Hmisc 的 latex() 更通用。

Answer 3

或者，如果你想使用 xtable，可以写下一个小函数：

library(lmtest)
library(xtable)

xtable.coeftest <- function (x, caption = NULL, label = NULL, align =     NULL, digits = NULL, 
                         display = NULL, ...) 
{
  class(x) <- "matrix"
  li<-list(coef=x)
  return(xtable:::xtable.summary.lm(li, caption = caption, label = label, 
                                align = align, digits = digits, display = display))
}


example(coeftest)
xtable(coeftest(fm))

诚然，它不是最优雅的（有两个问题，一个是很难转换coeftest对象，第二个是xtable.summary.lm使用x$coef而不是coef(x)），但它确实有效！