# 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)
quantizedX1 <- predict(binX1, SimUplift$X1)
# }
Run the code above in your browser using DataLab