data("Groceries")
ct <- crossTable(Groceries, sort = TRUE)
ct[1:5, 1:5]
sp <- crossTable(Groceries, measure = "support", sort = TRUE)
sp[1:5, 1:5]
lift <- crossTable(Groceries, measure = "lift", sort = TRUE)
lift[1:5, 1:5]
Run the code above in your browser using DataLab