[R] Average regions of non-zeros

[Dimitris Rizopoulos]

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