if (requireNamespace("arules", quietly = TRUE)) {
data("AdultUCI", package = "arules")
trans <- suppressWarnings(methods::as(as.data.frame(AdultUCI), "transactions"))
utils <- patutils()
pm <- pat_apriori(
target = "rules",
supp = 0.2,
conf = 0.85,
minlen = 2,
maxlen = 3,
rhs = c("native-country=United-States"),
quality_filter = utils$quality_min(confidence = 0.9, lift = 1.03),
control = list(verbose = FALSE)
)
pm <- fit(pm, trans)
rules <- suppressWarnings(discover(pm, trans))
eval <- evaluate(pm, rules)
eval$metrics
}
Run the code above in your browser using DataLab