mycorpus <- corpus_subset(data_corpus_inaugural, Year > 1970)
quantdfm <- dfm(mycorpus, verbose = FALSE)
# shortcut conversion to austin package's wfm format
identical(as.wfm(quantdfm), convert(quantdfm, to = "austin"))
## Not run: ------------------------------------
# # shortcut conversion to tm package's DocumentTermMatrix format
# identical(as.DocumentTermMatrix(quantdfm), convert(quantdfm, to = "tm"))
## ---------------------------------------------
## Not run: ------------------------------------
# # shortcut conversion to lda package list format
# identical(dfm2ldaformat(quantdfm), convert(quantdfm, to = "lda"))
## ---------------------------------------------
# shortcut conversion to topicmodels package format
## Not run: ------------------------------------
# identical(quantedaformat2dtm(quantdfm),
# convert(quantdfm, to = "topicmodels"))
## ---------------------------------------------
Run the code above in your browser using DataLab