Nothing
c_ <- function (d, beta, y, X) {
beta_1 <- log(mean(y * exp(-X %*% cbind(beta))))
mean(log(y + d * exp(beta_1 + X %*% cbind(beta))) - beta_1 - X %*% cbind(beta))
}
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.