# NOT RUN {
corp <- corpus_subset(data_corpus_inaugural, Year > 1970)
dfmat <- dfm(corp)
# shortcut conversion to austin package's wfm format
identical(as.wfm(dfmat), convert(dfmat, to = "austin"))
# }
# NOT RUN {
# shortcut conversion to tm package's DocumentTermMatrix format
identical(as.DocumentTermMatrix(dfmat), convert(dfmat, to = "tm"))
# }
# NOT RUN {
# }
# NOT RUN {
# shortcut conversion to lda package list format
identical(quanteda:::dfm2lda(dfmat), convert(dfmat, to = "lda"))
# }
# NOT RUN {
# }
# NOT RUN {
# shortcut conversion to lda package list format
identical(dfm2ldaformat(dfmat), convert(dfmat, to = "lda"))
# }
Run the code above in your browser using DataLab