Skip to content
Prev 175007 / 398506 Next

same value in column-->delete

this works

which.is.not.unique <- apply(x,2,function(x)ifelse(length(unique(x))==1,F,T))
x[,which.is.not.unique]

patrizio

2009/3/26 Duijvesteijn, Naomi <Naomi.Duijvesteijn at ipg.nl>: