# NOT RUN {
(dfm1 <- dfm(c("a a b b c d", "a d d d", "a a a")))
textstat_frequency(dfm1)
textstat_frequency(dfm1, groups = c("one", "two", "one"))
obamadfm <- dfm(data_corpus_inaugural[56:57],
remove_punct = TRUE, remove = stopwords("english"))
freq <- textstat_frequency(obamadfm)
head(freq, 10)
# }
Run the code above in your browser using DataLab