R/ojaRCM.R

Defines functions `ojaRCM`

`ojaRCM` <-
function(X, p = NULL, silent = FALSE, na.action = na.fail){
    OjaRanks <- ojaRank(X, x = NULL, p = p, silent = silent, na.action = na.fail)
    RCM <- crossprod(OjaRanks)/nrow(OjaRanks)
    dimnames(RCM) <- NULL
    rownames(RCM) <- colnames(X)
    colnames(RCM) <- colnames(X)
    return(RCM)
}
fischuu/OjaNP documentation built on April 19, 2023, 9:50 a.m.