Nothing
culf <-
function(x, n = 1, first = TRUE, second = FALSE , lower = FALSE)
{
if (first) x = paste (tolower (substr (x, 1, n)), substring (x, n+1), sep = '')
if (second) x [substring (x, 2, 2) %in% LETTERS] = tolower (x [substring (x, 2, 2) %in% LETTERS])
if (lower) x = tolower (x)
return (x)
}
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.