# \donttest{
if (interactive()) {
tc = create_tcorpus(sotu_texts, doc_column = 'id')
tc$preprocess('token', 'feature', remove_stopwords = TRUE, use_stemming = TRUE, min_freq=10)
set.seed(1)
m = tc$lda_fit('feature', create_feature = 'lda', K = 5, alpha = 0.1)
m
topicmodels::terms(m, 10)
tc$tokens
}
# }
Run the code above in your browser using DataLab