Nothing
`fit.control` <-
function(tol=1e-06,display=FALSE,it.max=20,GLM=FALSE,maxit.inner=3){
list(toll=tol,visual=display,it.max=it.max,GLM=GLM,maxit.inner=maxit.inner)}
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.