# NOT RUN {
settings(data_corpus_inaugural, "stopwords")
(dfmat1 <- dfm(corpus_subset(data_corpus_inaugural, Year > 1980)))
(dfmat2 <- dfm(corpus_subset(data_corpus_inaugural, Year > 1980),
remove = stopwords("english")))
settings(data_corpus_inaugural, "stopwords") <- TRUE
dfmat <- dfm(data_corpus_inaugural, stem = TRUE, verbose = FALSE)
settings(dfmat)
# }
Run the code above in your browser using DataLab