Try this which uses 10 as the check value: f <- function(acc, x) if (acc + x > 10) x else acc + x x <- c(4, 6, 2, 7, 4, 1, 4, 8) Reduce(f, x)
On Sun, Jan 3, 2010 at 10:02 PM, Dgnn <sharkbrain...@gmail.com> wrote: > > Hi All, > > I have a vector n, and for each n[i] I want to extract n[i], n[i+1], > n[i+2]..., until the cumulative sum of n[i] and subsequent elements exceeds > a CheckValue, whereupon I move to the next index and repeat. > > I am trying to find a Vectorized approach, and have seen similar posts where > filter{stat} and rollmean{zoo} were suggested, but, I haven't been able to > figure a way to use them for this problem. > > Best wishes to all, and thanks for the help! > > Dgnn > > > -- > View this message in context: > http://n4.nabble.com/Extract-vector-elements-until-cumsum-x-tp998023p998023.html > Sent from the R help mailing list archive at Nabble.com. > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.