Nothing
coldcublim<- function (l1i=-4,l2i=-4,l1s=4,l2s=4, tol=1e-4, maxEval=100)
{
list(l1i=l1i, l2i=l2i,l1s=l1s, l2s=l2s, tol=tol, maxEval=maxEval)
}
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.