Nothing
# Negative loglikelihood (nLL)
negll <- function(beta, x, y){
.y <- y[,1]
if( ncol(y) == 1 ){ .n <- 1 }else{ .n <- rowSums(y) }
eta <- x %*% as.matrix(beta)
llik <- dbinom(.y, size = .n, prob = exp( eta ), log = TRUE )
.value <- -sum(llik)
return(.value)
}
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.