# NOT RUN {
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 {
# }
# NOT RUN {
# shortcut conversion to lda package list format
identical(dfm2ldaformat(quantdfm), convert(quantdfm, to = "lda"))
# }
# NOT RUN {
# shortcut conversion to topicmodels package format
# }
# NOT RUN {
identical(quantedaformat2dtm(quantdfm),
convert(quantdfm, to = "topicmodels"))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab