# NOT RUN {
library(tools4uplift)
data("SimUplift")
features <- BestFeatures(data = SimUplift, treat = "treat", outcome = "y",
predictors = colnames(SimUplift[,3:7]))
features
# }
Run the code above in your browser using DataLab