R/summary.probit.R

In sampleSelection2: Sample Selection Models

summary.probit <- function(object, ...) {
   ## summary for probit -- adds Likelihood Ratio Test to summary.maxLik
   summaryML <- NextMethod( "summary", object, ...)
   pchi2 <- pchisq(object$LRT$LRT, object$LRT$df, lower.tail=FALSE)
   a <- c(summaryML,
          LRT=list(c(object$LRT, pchi2=pchi2)),
          nParam=nParam(object),
          nObs=nObs(object),
          N0=object$param$N0,
          N1=object$param$N1,
          df.residual = object$df.residual,
          levels=list(object$param$levels))
   class(a) <- c("summary.probit", class(summaryML))
   a
}