r - 对所有 x 值求和并减去它们的平均值

Question

我正在尝试对 R 中标准偏差的公式进行硬编码（是的，我知道有一个函数可以做到这一点）。这就是我到目前为止所拥有的。

x = c(1, 6, 2, 7, ... #shortened for clarity
n = length(x)
xBar <- mean(x)
...
StDev = sqrt((sum(x - xBar)) / (n-1))

这输出零。我在 R 方面的经验较少，但我相信我的问题在于sum(x - xBar). 如何将所有 x 值的总和减去平均值？谢谢！

我宁愿不写一个新函数。

标签： rsumstandard-deviationhardcode

Answer 1

试试这个公式：

x = c(1, 6, 2, 7)
sqrt(sum((x-mean(x))^2)/(length(x)-1))
[1] 2.94392

如您所见，您有相同的标准 R 函数输出sd：

sd(x)
[1] 2.94392