data(Adult)
DATAFRAME(head(Adult))
DATAFRAME(head(Adult), setStart = "", itemSep = " + ", setEnd = "")
rules <- apriori(Adult,
parameter = list(supp = 0.5, conf = 0.9, target = "rules")
)
rules <- head(rules, by = "conf")
### default coercions (same as as(rules, "data.frame"))
DATAFRAME(rules)
DATAFRAME(rules, separate = TRUE)
DATAFRAME(rules, separate = TRUE, setStart = "", itemSep = " + ", setEnd = "")
Run the code above in your browser using DataLab