## multisets
A = gset(letters[1:5], memberships = c(3, 2, 1, 1, 1))
B = gset(c("a", "c", "e", "f"), memberships = c(2, 2, 1, 2))
cut(B, 0.5)
rep(B, 2)
gset_union(A, B)
gset_intersection(A, B)
gset_complement(A, B)
gset_is_multiset(A)
gset_sum(A, B)
gset_difference(A, B)
## fuzzy sets
A = gset(letters[1:5], memberships = c(1, 0.3, 0.8, 0.6, 0.2))
B = gset(c("a", "c", "e", "f"), memberships = c(0.7, 1, 0.4, 0.9))
A * B
## fuzzy multisets
A = gset(c("a", "b", "d"),
memberships = list(c(0.3, 1, 0.5), c(0.9, 0.1), gset(c(0.4, 0.7), c(1, 2))))
B = gset(c("a", "c", "d", "e"),
memberships = list(c(0.6, 0.7), c(1, 0.3), c(0.4, 0.5), 0.9))
gset_union(A, B)
gset_intersection(A, B)
gset_complement(A, B)
## other operations
mean(gset(1:3, c(0.1,0.5,0.9)))
median(gset(1:3, c(0.1,0.5,0.9)))
Run the code above in your browser using DataLab