Nothing
word.counts <-
function (docs, vocab = NULL)
{
all.words <- matrix(unlist(docs), nrow = 2)
if (is.null(vocab)) {
tapply(all.words[2, ], all.words[1, ], sum)
}
else {
result <- tapply(all.words[2, ], list(word = ordered(vocab[all.words[1,
] + 1], levels = vocab)), sum)
result[is.na(result)] <- 0
result
}
}
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.