Nothing
beta.mom <-
function(qs.in){
xbar<-mean(qs.in)
s2<-var(qs.in)
term<-(xbar*(1-xbar))/s2
alpha.hat<-xbar*(term-1)
beta.hat<-(1-xbar)*(term-1)
return(c(alpha.hat,beta.hat))
}
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.