# NOT RUN {
relations <- data.frame(
sets = c(rep("a", 5), "b"),
elements = letters[seq_len(6)],
fuzzy = runif(6)
)
TS <- tidySet(relations)
add_column(TS, "relations", data.frame(well = c(
"GOOD", "BAD", "WORSE",
"UGLY", "FOE", "HEY"
)))
# }
Run the code above in your browser using DataLab