# NOT RUN {
# Load a pre-formatted dtm
# }
# NOT RUN {
data(nih_sample_dtm)
model <- FitCtmModel(dtm = nih_sample_dtm[1:20,], k = 3,
calc_coherence = FALSE, calc_r2 = FALSE)
# Get predictions on the next 50 documents
pred <- predict(model, nih_sample_dtm[21:100,])
# }
Run the code above in your browser using DataLab