union(x, y) #并集
intersect(x, y) #交集
setdiff(x, y) #存在于x,不存在與y
setequal(x, y) #向量包含 元素是否相同
is.element(el, set) #等價于x %in% y,返回布爾值

a<-c(1:10)
b<-c(7:15)
union(a,b)
[1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15

intersect(a,b)
[1]  7  8  9 10

setdiff(a,b)
[1] 1 2 3 4 5 6
setdiff(b,a)
[1] 11 12 13 14 15

setequal(a, b)
[1] FALSE
c=a
setequal(a,c)
[1] TRUE

is.element(a,b) 
[1] FALSE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE
is.element(a,c) 
[1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE