diff --git a/R/oolong_topicmodels.R b/R/oolong_topicmodels.R index d0139b8..94cae8a 100644 --- a/R/oolong_topicmodels.R +++ b/R/oolong_topicmodels.R @@ -7,7 +7,7 @@ if (need_topic) { model_terms <- t(topicmodels::terms(input_model, k = n_topiclabel_words)) dimnames(model_terms)[[1]] <- NULL - theta <- topicmodels::posterior(input_model)$topic + theta <- topicmodels::posterior(input_model)$topics } else { model_terms <- NULL theta <- NULL