Nothing
bic.calc <-
function(loglik,g,p,n){
v <- g*(2*p+((p^2)+p)/2)+(g-1)
val <- 2*loglik - v*log(n)
return(val)
}
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.