R/summary.probit.R

Defines functions summary.probit

Documented in summary.probit

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
}

Try the sampleSelection package in your browser

Any scripts or data that you put into this service are public.

sampleSelection documentation built on Jan. 13, 2021, 7:49 p.m.