替换for循环

Question

我想找到一种方法来替换我正在使用的 for 循环。我的问题的快速版本是： 如何从向量 [a,b,c,d,e] 转到 [1,a,a*b,a*b*c,a*b*c*d] ？ 我目前正在做类似的事情：

myvec <- c(.3,.5,.2,.3,.3)  
new_vec <- vector(length=length(myvec))  
new_vec[1] <- 1  
for (i in 2:length(myvec)) {  
    new_vec[i] <- myvec[i-1]*new_vec[i-1]  
}  

但是，这非常慢。有任何想法吗？ 谢谢！

Answer 1

这是你想要的吗？

c(1, cumprod(myvec))[1:length(myvec)]