Nothing
rtm.collapsed.gibbs.sampler <-
function (documents, links, K, vocab, num.iterations, alpha,
eta, beta, trace = 0L, test.start = length(documents) + 1L)
{
retval <- structure(.Call("rtm", documents, links, as.integer(K),
length(vocab), as.integer(num.iterations), as.double(alpha),
as.double(eta), rep(as.double(beta), length.out = K),
trace, test.start), names = c("assignments", "topics",
"topic_sums", "document_sums", "log.likelihoods"))
colnames(retval$topics) <- vocab
retval
}
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.