## File Name: logLik_lam.R
## File Version: 0.02
logLik_lam <- function (object, ...)
{
# extract log-likelihood
out <- - object$ic$deviance / 2
# number of parameters
attr(out, 'df') <- object$ic$np
# extract number of observations
attr(out, 'nobs') <- object$ic$n
class(out) <- 'logLik'
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.