R/mutrank.wrap.R

Defines functions mutrank.wrap

Documented in mutrank.wrap

mutrank.wrap <- function(data){
    m <- cor(data,method = "pearson")
    r <- apply(m,1,rank)
    diag(r) <- 0
    net <- r*t(r)/2
    colnames(net) <- colnames(data)
    rownames(net) <- colnames(data)
    return(net)
}

Try the netbenchmark package in your browser

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

netbenchmark documentation built on May 2, 2019, 6:08 p.m.