Nothing
"capstring" <-
function (names)
{
paste(toupper(substring(names, first=1, last=1)),substring(names, first=2), sep="")
}
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.