# NOT RUN {
inaugDfm <- dfm(data_corpus_inaugural, verbose = FALSE)
# first 50 features (in original text order)
head(featnames(inaugDfm), 50)
# first 50 features alphabetically
head(sort(featnames(inaugDfm)), 50)
# contrast with descending total frequency order from topfeatures()
names(topfeatures(inaugDfm, 50))
# }
Run the code above in your browser using DataLab