out <- which( colMeans( is.na( xxx ) ) == 1 ) newdata <- xxx[ , -out ]
______________________________________________ [EMAIL PROTECTED] mailing list https://www.stat.math.ethz.ch/mailman/listinfo/r-help
out <- which( colMeans( is.na( xxx ) ) == 1 ) newdata <- xxx[ , -out ]
______________________________________________ [EMAIL PROTECTED] mailing list https://www.stat.math.ethz.ch/mailman/listinfo/r-help