Nothing
betaIntEst <-
function(locs, var, L0, L){
lambda <- {(locs - L0) * (L - locs)} / var - 1
### Estimating alpha
alpha <- lambda * {(locs - L0) / (L - L0)}
### Estimating beta
beta <- lambda * {(L - locs) / (L - L0)}
return (list(alpha.init = alpha, beta.init = beta))
}
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.