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