R/mutrank.wrap.R

In paubellot/netbenchmark: Benchmarking of several gene network inference methods

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)
}