Question

以下代码取自提示包的文档。此代码的最后一行是抛出错误。

library(hints)
m <- lm(BOD)
hints(m)
library(xtable)
xtable(hints(m))

错误是

Error in UseMethod("xtable") : 
  no applicable method for 'xtable' applied to an object of class "hints"

我想知道如何在hints或带有knitr函数的sweave文档中使用xtable函数输出。任何帮助将受到高度赞赏。感谢

Answer 1

看起来xtable.hints由包提供，但未正确导出，因此您无法实际使用它。这是一个相当简单的功能，最简单的解决方案可能是复制源并创建自己的功能完全相同的事情。

xtable.hints <- function(x, align = "llll", ...){
    x <- as.data.frame(x$results[, c(2, 1, 3)])
    colnames(x) <- c("Package", "Function", "Task")
    xtable(x, align = align, ...)
}

x <- 1:10
y <- rnorm(10)
o <- lm(y~x)
xtable(hints(o)) # now it works

输出提示函数来自R中的提示包

1 个答案: