Nothing
amplify <-
function (gamma, lambda)
{
stopifnot(length(gamma) == 1)
stopifnot(gamma > 1)
stopifnot(min(lambda) > gamma)
delta<-(gamma * lambda - 1)/(lambda - gamma)
names(delta)<-lambda
delta
}
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.