# NOT RUN {
library(quanteda)
gadarian_corpus <- corpus(gadarian, text_field = "open.ended.response")
gadarian_dfm <- dfm(gadarian_corpus,
remove = stopwords("english"),
stem = TRUE)
asSTMCorpus(gadarian_dfm)
# }
Run the code above in your browser using DataLab