"capstring" <- function (names) { paste(toupper(substring(names, first=1, last=1)),substring(names, first=2), sep="") }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.