r - 向量元素之和

Question

是否可以避免使用do和while循环来计算向量元素的和，直到出现最后一个正元素或最后一个负元素。

Answer 1

尝试以下操作:

x <- 5:-5
# sum until last positive:
sum(x[1:max(which(x > 0))])

x <- -5:5
# sum until last negative:
sum(x[1:max(which(x < 0))])

解释:

Which(x > 0) 给出 x 大于 0 的索引号向量。取最大值给出最后一个这样的索引。然后剩下的就是从 1 到这个元素对 x 求和。我希望这会有所帮助。