R/logLik.jmodelTM.R

In hadjipantelis/JSM: Semiparametric Joint Modeling of Survival and Longitudinal Data

logLik.jmodelTM <-  function (object, ...) {
    if (!inherits(object, "jmodelTM"))
      stop("Only used for 'jmodelTM' objects.\n")
    out <- object$logLik
    attr(out, "df") <- nrow(object$Vcov)
    attr(out, "n") <- object$n
    class(out) <- "logLik"
    out
  }