[R] optimize R code: replace for loop

[Chris82]

Dear R Users,

at the moment I am trying to optimize an R script.

testvec <- c(0,1,0,1,1,1,1,0,0,1,0,1,0)


sum.testvec <- vector()
tempsum <- 1
for (e in 1:length(testvec)){
sum.testvec[e] <- tempsum+testvec[e]
tempsum <- sum.testvec[e]

}

final.sum <- c(1,sum.testvec)


Is there an option to do something with apply? Unfortunately I am not so
familiar with the apply functions.

Thanks.

--
View this message in context: http://r.789695.n4.nabble.com/optimize-R-code-replace-for-loop-tp3873945p3873945.html
Sent from the R help mailing list archive at Nabble.com.