# NOT RUN {
toks <- tokens(data_corpus_inaugural)
head(kwic(toks, "united states"))
dict <- dictionary(list(country = "united states"))
toks2 <- applyDictionary(toks, dict, valuetype = "fixed")
toks2
# }
Run the code above in your browser using DataLab