R/ssdeR.logLik.R

In ssdeR: Sample Selection Models with a Common Dummy Endogenous Regressor in Simultaneous Equations

#######################
# ssdeR.logLik
########################
logLik.ssdeR <- function (object, ...)
{
  structure(object$loglik, df = sum(sapply(object$coefficients,
                                           length)), class = "logLik")
}