Nothing
# log-likelihood
loglik.faithful <- function(theta, x) {
alpha <- theta[1]
mu1 <- theta[2]; mu2 <- theta[3]
sigma1 <- theta[4]; sigma2 <- theta[5]
sum(log(dmix(x, alpha, mu1, mu2, sigma1, sigma2)))
}
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.