R/nodes.R

In xzheng-ac/scPADGRN: A PADMM approach for reconstructing DGRN using scRNA-seq

Defines functions nodes

Documented in nodes

nodes <- function(M, nodeRank){
    node1 <- rowSums(abs(M))
    node2 <- colSums(abs(M))
    node <- node1 + node2
    node[rank(node)<length(node)-nodeRank+1]<-0
    return(node)
}