rel <- data.frame(
sets = c("A", "A", "B", "B", "C", "C"),
elements = letters[seq_len(6)],
fuzzy = runif(6)
)
TS <- tidySet(rel)
TS %>%
activate("elements") %>%
complement("a")
TS %>%
activate("elements") %>%
complement("a", "C_a", keep = FALSE)
TS %>%
activate("set") %>%
complement("A")
TS %>%
activate("set") %>%
complement("A", keep = FALSE)
TS %>%
activate("set") %>%
complement("A", FUN = function(x){abs(x - 0.2)}, keep = FALSE)
Run the code above in your browser using DataLab