R/model.matrix.heckitrob.R

In ssmrob: Robust Estimation and Inference in Sample Selection Models

Defines functions model.matrix.heckitrob

Documented in model.matrix.heckitrob

model.matrix.heckitrob <-
function(object, part = "outcome", ...)
{
  if(part == "outcome")
  return(model.matrix(object$stage2))
  else if(part == "selection")
    return(model.matrix(object$stage1))
  else cat("Please choose either 'outcome' or 'selection' matrix")
}

Try the ssmrob package in your browser