Nothing
# Author: Jorrel Khalil S. Aunario, jaunario@gmail.com
# Date : 21 February 2012
# Version 0.0.1
# Licence GPL v3
strToChar <- function(str){
return(unlist(strsplit(str,"")))
}
serialn <- function(x, width=2){
# Just use sprintf
return(sprintf(paste("%0",width,"d",sep=""),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.