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 相加。我希望这有帮助。