R 样本方差

这是我的功能，但似乎不起作用。

---

允许我们在函数中使用var吗？

除非我弄错了，否则这比您想象的要困难得多；你不能直接用你想做的方式来计算。（提示：当取

sum（）

时，得到一个长度为1的单一值/向量，因此该向量的样本方差为

NA

）将样本方差的方差导出为

mu_4/n-σ^4*（n-3）/（n*（n-1））

，其中

mu_4

是第四个中心矩；你也可以看到或（不同的导数表示第四中心矩、峰度或多余峰度的结果…）因此：

set.seed（101）
r非常感谢你的帮助！我必须对此进行更多的思考：）
function(x) var(sum(((x - mean(x))^2)/(n - 1)))