### co kupują klienci, którzy kupili masło
maslo.and <- apriori(data = groceries,
                     parameter = list(supp = 0.001, conf = 0.08, minlen = 2),
                     appearance = list(default = "rhs", lhs = "butter"),
                     control = list(verbose = F))
maslo.and <- sort(maslo.and, decreasing = TRUE, by = "confidence")

write(x = maslo.and, file = "maslo_z_czym.csv", quote = TRUE, sep = ",")


### które towary kupują klienci wraz z masłem
and.maslo <- apriori(data = groceries,
                     parameter = list(supp = 0.001, conf = 0.08, minlen = 2),
                     appearance = list(default = "lhs", rhs = "butter"),
                     control = list(verbose = F))
and.maslo <- sort(and.maslo, decreasing = TRUE, by = "confidence")

write(x = and.maslo, file = "co_wraz_z_maslem.csv", quote = TRUE, sep = ",")