# NOT RUN {
library(tools4uplift)
data("SimUplift")
model <- BinUplift2d(SimUplift, "X1", "X2", "treat", "y")
#performance of the heat map uplift estimation on the training dataset
perf <- PerformanceUplift(data = model, treat = "treat",
outcome = "y", prediction = "Uplift_X1_X2",
equal.intervals = TRUE, nb.group = 5)
barplot(perf)
# }
Run the code above in your browser using DataLab