Nothing
#==============================================================================
# logLik method ---------------------------------------------------------------
#==============================================================================
#' @export
logLik.maxlogL <- function(object, ...){
p <- ifelse(object$outputs$type == "maxlogL",
object$outputs$npar,
sum(as.numeric(object$outputs$b_length)))
val <- object$fit$objective
attr(val, "nall") <- object$outputs$n
attr(val, "nobs") <- object$outputs$n
attr(val, "df") <- p
class(val) <- "logLik"
val
}
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.