Nothing
expandbound<-function(g, pct=.10)
{
### expand the bounds of a vector range by a specified percent
r = range(g)
dg = pct*diff(r)
return(c(r[1]-dg, r[2]+dg))
}
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.