cumsum(1-x) cumsum(x==0)
Michael On Mar 5, 2012, at 1:59 PM, Edward Patzelt <patze...@umn.edu> wrote: > Actually in looking at this I need it to only add if a 0 occurs instead of > a 1. > > On Mon, Mar 5, 2012 at 12:57 PM, jim holtman <jholt...@gmail.com> wrote: > >> cumsum >> >> is probably what you want: >> >>> x <- c(1L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L, >> + 1L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, >> + 0L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, >> + 1L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 0L, >> + 1L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, >> + 0L, 1L, 1L, 1L, 0L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, >> + 1L, 0L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, >> + 0L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L) >>> cbind(x, cumsum(x)) >> x >> [1,] 1 1 >> [2,] 1 2 >> [3,] 0 2 >> [4,] 1 3 >> [5,] 1 4 >> [6,] 1 5 >> [7,] 1 6 >> [8,] 1 7 >> [9,] 0 7 >> [10,] 1 8 >> [11,] 0 8 >> [12,] 1 9 >> [13,] 1 10 >> [14,] 1 11 >> [15,] 1 12 >> [16,] 1 13 >> [17,] 0 13 >> >> >> On Mon, Mar 5, 2012 at 1:51 PM, Edward Patzelt <patze...@umn.edu> wrote: >>> I'm am trying to create a vector that has a running total that adds each >>> time a 1 occurs. here's the code and data >>> >>> c(1L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L, >>> 1L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, >>> 0L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, >>> 1L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 0L, >>> 1L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, >>> 0L, 1L, 1L, 1L, 0L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, >>> 1L, 0L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, >>> 0L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L) >>> >>> >>> total <- {}; >>> >>> for(i in 1:length(dat$Valid)){ >>> total[i] <- ifelse(dat$Valid[i-1]==1, total[i] + 1, total[i]) >>> } >>> >>> >>> Cheers, >>> >>> >>> >>> -- >>> Edward H. Patzelt >>> Research Assistant � TRiCAM Lab >>> University of Minnesota � Psychology/Psychiatry >>> VA Medical Center >>> S355 Elliot Hall: 612-626-0072 >>> www.psych.umn.edu/research/tricam >>> >>> [[alternative HTML version deleted]] >>> >>> >>> ______________________________________________ >>> 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. >>> >> >> >> >> -- >> Jim Holtman >> Data Munger Guru >> >> What is the problem that you are trying to solve? >> Tell me what you want to do, not how you want to do it. >> > > > > -- > Edward H. Patzelt > Research Assistant � TRiCAM Lab > University of Minnesota � Psychology/Psychiatry > VA Medical Center > S355 Elliot Hall: 612-626-0072 > www.psych.umn.edu/research/tricam > > [[alternative HTML version deleted]] > > ______________________________________________ > 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.