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