R/coef.heckitrob.R

In ssmrob: Robust Estimation and Inference in Sample Selection Models

Defines functions coef.heckitrob

Documented in coef.heckitrob

coef.heckitrob <-
function(object, ...)
{
  coeff <- list()
  coeff$S <- coef(object$stage1)
  coeff$O <- coef(object$stage2)
  class(coeff) <- c("coef.heckitrob", class(coeff), class(coeff$S))
  return(coeff)
}

Try the ssmrob package in your browser