Nothing
checknbootseed <-
function(nboot, seed)
{
if ((!inherits(nboot, "numeric") && !inherits(nboot, "integer")) || nboot <= 0 || length(nboot) != 1 || ceiling(nboot) != floor(nboot))
stop("'nboot' must be a positive integer")
if ((!inherits(seed, "numeric") && !inherits(seed, "integer")))
stop("'seed' must be an integer")
}
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.