为何R语言计算单值却返回两个结果？新手求助

你的函数返回两个结果，核心问题出在num <- range(values)这行代码上：range()函数的作用是返回输入向量的最小值和最大值，所以它会生成两个数值。当你计算1/num时，得到的是两个倒数，再和平方和tracker相乘，自然会输出两个结果。

而计算总体方差的正确逻辑是：将各数据与均值差的平方和，除以数据的总个数，也就是需要用length(values)来获取样本量，而非range()。

修正后的函数代码如下：

u <- function(values) {
    tracker <- 0
    mid <- mean(values)
    for (i in values) {
        cuSum <- (i - mid)^2
        tracker <- tracker + cuSum
    }
    num <- length(values)  # 替换range为length，获取数据总个数
    return ((1/num)*tracker)
}

运行测试代码：

print(u(c(2,3,4,5,6,7,8,9,10)))

会得到你想要的单一结果：[1] 8.25

另外补充个小技巧：R里其实有更简洁的方式计算总体方差，比如直接用mean((values - mean(values))^2)，或者基于内置的样本方差函数转换：var(values) * (length(values)-1)/length(values)。不过新手自己写函数练手，对于理解方差计算逻辑很有帮助。

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