## Not run: ------------------------------------
# scored_data <- rule_single(data = data, label = NA, scoring = TRUE, ruling = FALSE)
# rules <- rule_single(data = scored_data, label = target,
# iterations = 100, scoring = FALSE, ruling = TRUE)
# preds <- preds[rules$output[(length(target)+1):(nrow(data))] == 0] <- 0
## ---------------------------------------------
Run the code above in your browser using DataLab