# NOT RUN {
library(tools4uplift)
data("SimUplift")
fit <- DualUplift(SimUplift, "treat", "y", predictors = colnames(SimUplift[, 3:12]))
pred <- DualPredict(SimUplift, "treat", "y", model = fit, nb.group = 5)[[1]]
# }
Run the code above in your browser using DataLab