メンバーシップテストって何だ？

vec <- vector()
for (x in unlist(strsplit("abracadabra", NULL))) {
  if (! x %in% vec) {
    vec <- append(vec, x)
  }
}
print (vec)

[1] "a" "b" "r" "c" "d"

重複を除いた要素を得ることか？

unique(unlist(strsplit("abracadabra", NULL))) が一番簡単。

> unique(unlist(strsplit("abracadabra", NULL)))
[1] "a" "b" "r" "c" "d"

これだと，出現単語表を作ったりすることもできる。

> z <- c("one", "one", "can", "can", "too", "bad")
> unique(z)
[1] "one" "can" "too" "bad"