R/InvMillsRatio.R

Defines functions InvMillsRatio

InvMillsRatio <- function(x, lt) {

  ans <- exp(dnorm(x, log=TRUE) - pnorm(-x, lower.tail=lt, log.p=TRUE))
  return(ans)
}
nchenderson/daarem documentation built on April 1, 2022, 7:37 p.m.