R语言使用sum()、length()按均值公式计算并赋值给X_bar的方法

要仅使用sum()、length()两个函数完成均值计算并赋值给X_bar，直接对照给定公式的逻辑实现即可：

• 公式里的$N$代表变量$X$的元素总数量，对应length(X)的返回结果
• 公式里的$\sum_i^NX_i$代表变量$X$所有元素的求和结果，对应sum(X)的返回结果
• 用求和结果除以元素总数量得到均值，直接赋值给X_bar即可

无缺失值场景下的示例代码：

X_bar <- sum(X) / length(X)

如果变量$X$包含缺失值NA，需要忽略缺失值计算均值，可以用以下兼容写法：

X_bar <- sum(X, na.rm = TRUE) / length(X[!is.na(X)])

内容的提问来源于stack exchange，提问作者Penni Tenzin