Nothing
toc <-
function(){
# time function for measuring, like 'toc' in Matlab
#
# Junliang Shang
# 3.26/2014
type <- get(".type", envir=baseenv())
toc <- proc.time()[type]
tic <- get(".tic", envir=baseenv())
print(toc - tic)
invisible(toc)
}
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.