Nothing
get.zeta<-function(SS, w, alpha)
{
betaSS<-beta.laplace(ifelse(SS>=38, 38, SS), a=alpha)
zeta<-(1+betaSS)/((1/w)+betaSS)
return(zeta)
}
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.