R/lqmm_S3_logLik.R

In gforge/lqmm_gforge: Linear Quantile Mixed Models

#' Extract Log-Likelihood
#'
#' \code{logLik.lqmm} extracts the log-likelihood of a fitted LQMM.
#'
#'
#' @param object an object of \code{\link{class}} "lqmm".
#' @param \dots not used.
#' @author Marco Geraci
#' @seealso \code{\link{lqmm}} \code{\link{AIC}}
#' @keywords models
logLik.lqmm <- function(object, ...) {
  tdf <- object$edf + 1
  tau <- object$tau
  nq <- length(tau)

  if (nq == 1) {
    ans <- object$logLik
  } else {
    ans <- NULL
    for (i in 1:nq) ans <- c(ans, object[[i]]$logLik)
    names(ans) <- as.character(format(tau, digits = 4))
  }

  attr(ans, "nobs") <- object$nobs
  attr(ans, "df") <- tdf
  attr(ans, "class") <- "logLik"

  return(ans)
}