Nothing
estim <-
function(S,k) {
i <- 1:S
Ck <- 1 - (1-k)^S
pi <- (k*(1-k)^(i-1))/Ck
lpi <- log(pi)
return(lpi)
}
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.