R/ssdeR.aic.R

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

#######################
# ssdeR.aic
########################
aic.ssdeR <- function (object, ..., k = 2)
{

  return(structure(- 2*logLik(object) + k*object$param$nParam, df = sum(sapply(object$coefficients,
                                        length)), class = "logLik"))
}