Let\'s consider data :
library(caret) x <- sample(0:1,100,T) data <- data.frame( "Norm" = runif(100), "Exp" = rexp(100), "P
