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@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
______________________________________________
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.
