用于在向量中查找区间总和的 R 函数神秘地返回数字（0），但手动工作正常

Question

我制作了以下函数来查找排序数字向量中所有间隔的总和：

sum.intervals <- function(x){
        x <- sort(x)
        acc <- 0
        for( i in 1:length(x) - 1 ){
            acc <- acc + x[i + 1] - x[i]
        }
        return(acc)
    }

尝试使用它时，我期望一个标量值，但得到numeric(0) ：

x <- c(5, 2, 7, 3)
y <- sum.intervals(x)
y
#numeric(0)

但是，当手动执行迭代时，这个想法工作正常：

x <- sort(x)
acc <- 0

i <- 1
acc <- acc + x[i + 1] - x[i]

i <- 2
acc <- acc + x[i + 1] - x[i]

i <- 3
acc <- acc + x[i + 1] - x[i]

acc
#5

函数有什么问题？

Answer 1

1:length(x) - 1应该是1:(length(x) - 1) 。 您正在从向量中的每个元素中减去 1。

Answer 2

你真的需要一个循环吗？ 做就是了：

 sum(diff(sort(x)))

Answer 3

我们也可以在没有循环的情况下做到这一点

sum( x[-1] - x[-length(x)])
#[1] 5