a <- c("a","b","c","d","e")
b <- c("b","c")
is.element(a,b)
