data-raw/groceries.R

library(arules)
library(dplyr)
library(readr)

data("Groceries")
summary(Groceries)

groceries <-
  as_tibble(as(Groceries, "matrix")) %>%
  mutate(id = row_number())

# Save data
write_csv(groceries, "data-raw/groceries.csv")
usethis::use_data(groceries, overwrite = TRUE)
natbprice/radsets documentation built on Feb. 29, 2020, 5:21 p.m.