only_numeric.R

only_numeric <- function(x){
require(plyr)

y <- x[,do.call(cbind,colwise(is.numeric)(x))]

return(y)

}