if (FALSE) {
library(keyATM)
library(quanteda)
data(keyATM_data_bills)
bills_dfm <- keyATM_data_bills$doc_dfm # quanteda dfm object
keyATM_docs <- keyATM_read(bills_dfm)
# Weighted LDA
out <- weightedLDA(docs = keyATM_docs, model = "base",
number_of_topics = 5)
# Visit our website for full examples: https://keyatm.github.io/keyATM/
}
Run the code above in your browser using DataLab