Nothing
predictive.distribution <-
function (document_sums, topics, alpha, eta)
{
smoothed.topics <- (topics + eta)/rowSums(topics + eta)
apply(document_sums, 2, function(x) {
props <- (x + alpha)/sum(x + alpha)
colSums(props * smoothed.topics)
})
}
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.