我正在集思广益,为 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中设置块)。我怎么解决这个问题。