`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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.