y<-read.table("clipboard",header=T)
union(x, y) # 并集 i
intersect(x, y) # 交集
setdiff(x, y) # 差集
setequal(x, y) # 集合是否相等