# NOT RUN {
library(tools4uplift)
data("SimUplift")
upliftLHS <- qLHS(data = SimUplift, treat = "treat", outcome = "y",
predictors = colnames(SimUplift[,3:7]), lhs_points = 5,
lhs_range = 1, adjusted = TRUE, equal.intervals = TRUE,
nb.group = 5, validation = FALSE)
# }
Run the code above in your browser using DataLab