要素判定

• ある重複を許す集合が２つ(x,y)があるときに、xのうちyの要素であるものを取り出したいとする
• Rのsetsパッケージを使ってもよいけれど、こういうこと？

x <- sample(1:4,10,replace=TRUE)
y <- sample(1:4,2)
x
y
which(apply((outer(x,y,"==")),1,any))
x <- sample(LETTERS[1:4],10,replace=TRUE)
y <- sample(LETTERS[1:4],2)
x
y
which(apply((outer(x,y,"==")),1,any))