Nothing
data(geyser, package = "MASS")
snippet("faithful-mle01", echo = FALSE)
snippet("faithful-mle02", echo = FALSE)
loglik0.faithful <- function(theta, x) {
theta <- c(0.5, theta)
return(loglik.faithful(theta, x))
}
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.