r - xtable用于不支持的功能(带有R)

如果xtable不知道特殊命令，我应该怎么做。例如，假设估算了一个轨道模型，如下所示:
require(AER)require(xtable)attach(cars)tob<-tobit(dist~speed)summary(tob)xtable(summary(tob))detach(cars)
与线性模型的输出相比，summary的输出非常相似...为了使xtable能够理解，我想在Latex表中包含系数，该怎么办？ Samme具有其他功能，例如来自包装summary(zeroinfl(<model>))的pscl吗？
你们会建议做什么？

最佳答案

这是您可以使用的另一个功能。它是为lm定义的xtable的修改版本。
即我刚刚为tobit情况修改了功能xtable.summary.lm。
它还将与其他xtable功能保持一致

xtable.summary.tobit <-
function (x, caption = NULL, label = NULL, align = NULL, digits = NULL,
display = NULL, ...)
{
 x <- data.frame(unclass(x$coef), check.names = FALSE)
 class(x) <- c("xtable", "data.frame")
 caption(x) <- caption
 label(x) <- label
 align(x) <- switch(1 + is.null(align), align, c("r", "r",
     "r", "r", "r"))
 digits(x) <- switch(1 + is.null(digits), digits, c(0, 4,
     4, 2, 4))
 display(x) <- switch(1 + is.null(display), display, c("s",
     "f", "f", "f", "f"))
 return(x)
}
## Now this should give you the desired result
xtable(summary(tob))

希望它有助于获得理想的结果

关于r - xtable用于不支持的功能(带有R)，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/5914238/