Average regions of non-zeros
try this: x <- c(0,0,1,2,3,0,0,4,5,6) rl <- rle(x == 0) grp <- rep(seq_along(rl$lengths), rl$lengths) res <- tapply(x, grp, mean) res[res > 0] I hope it helps. Best, Dimitris
On 3/8/2010 3:48 AM, Daren Tan wrote:
x<- c(0,0,1,2,3,0,0,4,5,6) How to identify the regions of non-zeros and average c(1,2,3) and c(4,5,6) to get 2 and 5. Thanks
_________________________________________________________________ Hotmail: Trusted email with Microsoft??s powerful SPAM protection. [[alternative HTML version deleted]] ______________________________________________ R-help at 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.
Dimitris Rizopoulos Assistant Professor Department of Biostatistics Erasmus University Medical Center Address: PO Box 2040, 3000 CA Rotterdam, the Netherlands Tel: +31/(0)10/7043478 Fax: +31/(0)10/7043014