R/coef.epmrob.R

In epmrob: Robust Estimation of Probit Models with Endogeneity

Defines functions coef.epmrob

Documented in coef.epmrob

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

Try the epmrob package in your browser