# NOT RUN {
# example applied to tokens
txt <- c(one = "eating eater eaters eats ate",
two = "taxing taxes taxed my tax return")
th <- tokens(txt)
tokens_wordstem(th)
# simple example
char_wordstem(c("win", "winning", "wins", "won", "winner"))
# example applied to a dfm
(origdfm <- dfm(txt))
dfm_wordstem(origdfm)
# }
Run the code above in your browser using DataLab