R/heckit.R

In sampleSelection2: Sample Selection Models

Defines functions heckit

Documented in heckit

heckit <- function( selection, outcome,
                    data = sys.frame(sys.parent()), method="2step", ... ) {

   thisCall <- match.call()
   result <- selection( selection = selection, outcome = outcome,
      data = data, method = method, ... )

   result$call <- thisCall

   return( result )
}

Try the sampleSelection2 package in your browser