R/eLP.poly.R

eLP.poly <-
function (x, m) 
{
    u <- (rank(x, ties.method = c("average")) - 0.5)/length(x)
    m <- min(length(unique(u)) - 1, m)
    S.mat <- as.matrix(poly(u, df = m))
    return(as.matrix(scale(S.mat)))
}

Try the QDComparison package in your browser

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

QDComparison documentation built on June 24, 2019, 9:04 a.m.