Nothing
`logLik.mws` <-
function(object,...)
#returns the log-likelihood value of an object of class mws
{
llik <- object$likelihood[length(object$likelihood)]
cat("Log-Likelihood:", llik,"\n")
}
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.