R/lambda.R

In sampleSelection2: Sample Selection Models

Defines functions lambda

Documented in lambda

### inv mills ratio.
### Should accept all kind of values, including far off range.
lambda <- function(x) {
   as.vector(ifelse(x > -30, dnorm(x)/pnorm(x), -x))
                           # can we prove it?
}

Try the sampleSelection2 package in your browser