Nothing
Snowball_Stem_Annotator <-
function(language = "porter")
{
f <- function(s) wordStem(s, language)
description <-
sprintf("A Snowball word stem annotator for language '%s'",
language)
Simple_Stem_Annotator(f, list(description = description))
}
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.