Nothing
loglik.normal <- function(theta, x) {
mu <- theta[1]; sigma <- theta[2]
if (sigma < 0) return(NA) # alert maxLik() to invalid values of sigma
dnorm(x, mu, sigma, log = TRUE)
}
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.