R/liepsu.R

"liepsu" <-
function(upper=.dFvGet()$upr) {
 epsi2 <- integrate(Psi2phi, -upper,upper)$value
 epsp  <- integrate(Pspphi,  -upper,upper)$value
list(epsi2=epsi2,epsp=epsp)
}

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.