R/convert.d.to.eer.R

convert.d.to.eer <- function(d, cer, eventDesirable=TRUE, eventIfHigher=TRUE) {
  if (eventIfHigher) {
    return(pnorm((qnorm(cer) + d)));
  } else {
    return(1 - pnorm((qnorm(1-cer) + d)));
  }
}
Matherion/userfriendlyscience documentation built on May 7, 2019, 3:41 p.m.