r - Sweave/knitr 实现中的均值和 sem 函数

我正在集思广益，为 Sweave/knitr 使用编写一个均值和 sem 函数。对于我有限的知识，它看起来像这样

m.se <- function (x, na.rm = TRUE) {
    if (na.rm)
        x <- x[!is.na(x)]
    n <- length(x)
    if (n == 0)
        return(c(mean = NA, sem = NA))
     xbar <- sum(x)/n
     se <- sqrt(sum((x - xbar)^2)/(n - 1))/sqrt(n)
     c(mean = xbar, sem = se)
     return(paste(xbar,"\\pm",se))
}

它确实做了一些工作，它提供了如下输出:

43.9303846153846 \pm 3.34823050767781

问题是它不尊重我在主环境中定义的 option()(knitr 中的设置块)。
我怎么解决这个问题。

最佳答案

我认为 format 函数可以解决问题:

R> 1.1111111
[1] 1.111
R> paste(1.1111111)
[1] "1.1111111"
R> paste(format(1.1111111))
[1] "1.111"

所以在你的情况下，

paste(format(xbar), "\\pm", format(se))

关于r - Sweave/knitr 实现中的均值和 sem 函数，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/14145738/