Nothing
testthat::context('Topic Models')
test_that("Testing: Topic models", {
tc = create_tcorpus(sotu_texts[1:500,], 'text', doc_column = 'id')
tc = tc$preprocess('token', 'feature', lowercase = T, remove_punctuation = T, remove_stopwords = T, use_stemming = T, language = 'english')
tc = tc$feature_subset('feature', 'feature', subset = freq_filter(feature, min=10) & docfreq_filter(feature, max=0.5*tc$n))
m = tc$lda_fit(feature = 'feature', create_feature = 'lda', K=5)
expect_true(exists('m'))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.