Drop all not numeric variables
drop_var_not_numeric(data)
data
Data frame
data <- data.frame(a = 1:10, b = rep("A",10)) drop_var_not_numeric(data)