0
I am working with CTM for Text Mining and I'm running a loop to define the optimal number of topics, using the following code:
best.model <- lapply(seq(2, 60, by = 1), function(k){CTM(dtm_tfidf,k,
method="VEM", control=control_CTM_VEM, model = NULL)})
best.model.logLik <- as.data.f...