relations <- data.frame(
sets = c(rep("A", 5), "B"),
elements = letters[seq_len(6)],
fuzzy = runif(6)
)
TS <- tidySet(relations)
relations <- data.frame(
sets = c(rep("A2", 5), "B2"),
elements = letters[seq_len(6)],
fuzzy = runif(6),
new = runif(6)
)
add_relation(TS, relations)
Run the code above in your browser using DataLab