R/logLik.parfm.R

In parfm: Parametric Frailty Models

################################################################################
#  logLik method for class 'parfm'                                             #
################################################################################
#                                                                              #
#  logLik.parfm implemets the logLik function the objects of class 'parfm'     #
#                                                                              #
#  It is necessary in oder to compute AIC and BIC values via the standard      #
#    functions AIC() and BIC()                                                 #
#                                                                              #
#                                                                              #
#   Date: December 21, 2011                                                    #
#                                                                              #
################################################################################

logLik.parfm <- function(object,
                         ...) {
  lL <- attributes(object)$loglik
  attributes(lL)$df <- dim(object)[1]
  attributes(lL)$nobs <- attributes(object)$nobs
  return(lL)
}