Nothing
blm.likelihood <- function(type = c("norm", "t"), df = 3)
{
type <- match.arg(type)
list(type = type, errorCov = NULL, df = df)
}
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.