Nothing
fit.control <-
function (toll = 1e-03, it.max = 5, display = FALSE, last = TRUE,
maxit.glm = 25, h = 1, stop.if.error=FALSE){
list(toll = toll, it.max = it.max, visual = display, last = last,
maxit.glm = maxit.glm, h = h, stop.if.error = stop.if.error)
}
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.