Nothing
lambda.pert <- function (lambda, pert)
{
temp = logit(lambda) + pert
temp2 = inv.logit(temp)
new.lambda = temp2/sum(temp2)
new.lambda
}
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.