# \donttest{
library(quanteda)
gadarian_corpus <- corpus(gadarian, text_field = "open.ended.response")
toks <- tokens(gadarian_corpus, remove_punct = TRUE)
toks <- tokens_remove(toks, pattern = stopwords("en"))
toks <- tokens_wordstem(toks)
gadarian_dfm <- dfm(toks)
asSTMCorpus(gadarian_dfm)
# }
Run the code above in your browser using DataLab