R/ResExpG.r

Defines functions ResExpG

ResExpG <-
function(r) { zero <- 1e-6
num <- dnorm(r); den <- 1-pnorm(r)
val <- num/den; ind <- (den < zero) ; val[ind] <- r[ind] 
val}

Try the RobustAFT package in your browser

Any scripts or data that you put into this service are public.

RobustAFT documentation built on Aug. 21, 2023, 5:13 p.m.