## constructor
s <- set(1,2,3)
s
## a more complex set
set(c,"test",list(1,2,3))
## converter
s2 <- as.set(2:5)
s2
## set of sets
set(set(), set(1))
## cartesian product
s * s2
s * s
s ^ 2 # same as above
s ^ 3
## power set
2 ^ s
## tuples
s3 <- set(tuple(1,2,3), tuple(2,3,4))
s3
## Predicates:
## element
1:2 %e% s
tuple(1,2,3) %e% s3
## subset
s <= s2
s2 >= s # same
## proper subset
s < s
## complement, union, intersection, symmetric difference:
s - 1
s + set("a") # or use: s | set("a")
s & s
s %D% s2
set(1,2,3) - set(1,2)
set_intersection(set(1,2,3), set(2,3,4), set(3,4,5))
set_union(set(1,2,3), set(2,3,4), set(3,4,5))
set_symdiff(set(1,2,3), set(2,3,4), set(3,4,5))
## subsets:
set_combn(as.set(1:3),2)Run the code above in your browser using DataLab