Nothing
obj_value <- function(theta, y, x) {
eta <- x %*% theta
p <- exp(eta)
p[p >= 1] <- 1 - 1e-5
sum(y * eta + (1 - y) * log(1 - p))
}
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.