if (FALSE) {
data(Adult)
# list available algorithms
fim4r()
# mine association rules with FPgrowth
# note that fim4r specifies support and confidence out of 100%
r <- fim4r(Adult, method = "fpgrowth", target = "rules", supp = 70, conf = 80)
r
inspect(head(r, by = "lift"))
# mine closed itemsets with Carpenter or IsTa
closed <- fim4r(Adult, method = "carpenter", target = "closed", supp = 70)
closed
fim4r(Adult, method = "ista", target = "closed", supp = 70)
# mine frequent itemset of length 2 (zmin and zmax = 2)
freq_2 <- fim4r(Adult, method = "relim", target = "frequent", supp = 70,
zmin = 2, zmax = 2)
inspect(freq_2)
# mine maximal frequent itemsets
fim4r(Adult, method = "sam", target = "maximal", supp = 70)
# use item appearance. We first mine all rules and then restrict
# the appearance of the item capital-gain=None
rules_all <- fim4r(Adult, method = "fpgrowth", target = "rules",
supp = 90, conf = 90, zmin = 2)
inspect(rules_all)
rules_no_gain <- fim4r(Adult, method = "fpgrowth", target = "rules",
supp = 90, conf = 90, zmin = 2,
appear = list(c("capital-gain=None"), c("-"))
)
inspect(rules_no_gain)
}
Run the code above in your browser using DataLab