Nothing
egg.breadth = function(egg) {
opt = optimize(f=get.d, interval=c(0,1), maximum=TRUE, tol=1e-7, egg=egg)
d = get.d(opt$maximum, egg)
return(d)
}
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.