向量元素的總和

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。我希望這有幫助。