Guillaume,

# First, you need "extract" the values of x[,1] greater than 0:

x[,1][x[,1] > 0]

# After, you want the number of times that appears in the second column:
table(x2)
# but only to values above:
table(x2)[as.character(x[,1][x[,1] > 0])]

# Now, just put the values in column 2:
x[,2][x[,1][x[,1] > 0]] <- table(x[,2])[as.character(x[,1][x[,1] > 0])]


On Thu, Jan 15, 2009 at 10:47 AM, Guillaume Chapron <
carnivorescience@gmail.com> wrote:

> Thank you! This is exactly what I wanted. Could you please explain the
> logic behind your code?
>
>
>  x[,2][x[,1][x[,1] > 0]] <- table(x[,2])[as.character(x[,1][x[,1] > 0])]
>>
>
> ______________________________________________
> 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.
>



-- 
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O

	[[alternative HTML version deleted]]


