if (requireNamespace("arules", quietly = TRUE)) {
data("AdultUCI", package = "arules")
data <- as.data.frame(AdultUCI)
data <- data[, c("workclass", "education", "marital-status", "occupation", "income")]
rules <- pat_dara_rules(data, rhs = "income=small", supp = 0.05, conf = 0.6)
head(rules)
}
Run the code above in your browser using DataLab