Wow. That was fast. And it works. Thank you!

Laetitia


Am 29.08.2010 um 00:35 schrieb Jorge Ivan Velez:

> index <- apply(d, 2, function(x) length(table(x)) > 1)
> d[, index]


	[[alternative HTML version deleted]]

