# NOT RUN {
x <- data.frame(sets = c(rep("A", 5), rep("B", 5)),
elements = c(letters[1:5], letters[3:7]),
extra = sample(c("YES", "NO"), 10, replace = TRUE))
TS <- tidySet(x)
TS
remove_column(TS, "relations", "extra")
# }
Run the code above in your browser using DataLab