R/penorm.R

penorm <-
function (e, m = 0, sd = 1) 
{
    z = (e - m)/sd
    p = pnorm(z)
    d = dnorm(z)
    u = -d - z * p
    asy = u/(2 * u + z)
    return(asy)
}

Try the expectreg package in your browser

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

expectreg documentation built on March 18, 2022, 5:57 p.m.