R/logLik.SemiParBIV.r

In JRM: Joint Regression Modelling

Defines functions logLik.SemiParBIV

Documented in logLik.SemiParBIV

logLik.SemiParBIV <- 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
    
}

Try the JRM package in your browser