# NOT RUN {
library(tools4uplift)
data("SimUplift")
binX1 <- BinUplift(data = SimUplift, treat = "treat", outcome = "y", x = "X1",
n.split = 100, alpha = 0.01, n.min = 30)
SimUplift$quantizedX1 <- predict(binX1, SimUplift$X1)
UpliftPerCat(data = SimUplift, treat = "treat", outcome = "y",
x = "quantizedX1", xlab='Quantized X1', ylab='Uplift',
ylim=c(-1,1))
# }
Run the code above in your browser using DataLab