R/intw0.r

Defines functions intw0

intw0 <-
function(z) {c0 <- -0.1351788
cnd <- z != 0; itg      <-  PspSw(z)
u   <- z[cnd]; itg[cnd] <- (PsiSw(u)/u)
itg*dlweibul(z+c0)}

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.