R/logLik.ggmtrust.r

In KironmoyDas/KD-STAT0035-GMupdate: Generalised Joint Regression Modelling

logLik.ggmtrust <- function (object, ...){

    if (length(list(...))) warning("extra arguments discarded")
    
    lk <- object$logLik
    
    attr(lk, "nobs") <- object$n
    attr(lk, "df") <- object$t.edf
    class(lk) <- "logLik"
    lk
    
}