Nothing
ddo <- function(y,malthusian=TRUE)
{
init <- y[1]
final <- y[length(y)]
delta <- ifelse(malthusian,log(final/init,10),final/init)
return(delta)
}
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.