# NOT RUN {
library(tools4uplift)
data("SimUplift")
model1 <- BinUplift2d(SimUplift, "X1", "X2", "treat", "y")
perf1 <- PerformanceUplift(data = model1, treat = "treat",
outcome = "y", prediction = "Uplift_X1_X2",
equal.intervals = TRUE, nb.group = 3)
model2 <- BinUplift2d(SimUplift, "X3", "X4", "treat", "y")
perf2 <- PerformanceUplift(data = model2, treat = "treat",
outcome = "y", prediction = "Uplift_X3_X4",
equal.intervals = TRUE, nb.group = 3)
plot(perf1, type='b')
lines(perf2, type='b', col='red')
# }
Run the code above in your browser using DataLab