R/ppccNorm.R

ppccNorm <-
function (x) 
{
    x <- sort(x)
    m.tilda <- qnorm(ppoints(x, a = 3/8))
    ss.m <- sum(m.tilda^2)
    c.vec <- m.tilda/sqrt(ss.m)
    cor(c.vec, x)
}

Try the EnvStats package in your browser

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

EnvStats documentation built on Aug. 22, 2023, 5:09 p.m.