向量元素的总和

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