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