Nothing
"genopt.control" <-
function (births = 100, random.n = 0, jitters.n = 3, trace = TRUE,
eps = 0.1, prob = 0.4, scale.min = 1e-12, maxeval = Inf)
{
dcon <- c(eps = eps, prob = prob, scale.min = scale.min)
icon <- c(births = births, random.n = random.n, jitters.n = jitters.n,
trace = trace, maxeval = maxeval)
list(icontrol = icon, dcontrol = dcon)
}
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.