R/logLik.SemiParBIVProbit.r

In SemiParBIVProbit: Semiparametric Copula Regression Models

Defines functions logLik.SemiParBIVProbit

Documented in logLik.SemiParBIVProbit

logLik.SemiParBIVProbit <- 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 SemiParBIVProbit package in your browser