Nothing
fun.alpha <-
function(a, L0, L){
x <- (a[1] - L0) / (L - L0)
if(a[2] == 0)
a[2] <- 0.00000001
y <- a[2] / {(L-L0)^2}
alpha.est<- x * (((x * (1 - x)) / y) - 1)
}
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.