R/model.matrix.etregrob.R

In ssmrob: Robust Estimation and Inference in Sample Selection Models

Defines functions model.matrix.etregrob

Documented in model.matrix.etregrob

model.matrix.etregrob <-
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