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

Description Usage Arguments Value Examples

This function selects nodes from weighted gene regulatory network.

1	nodes(M, nodeRank)

`M`	M is a weighted gene regulatory network, a numerical matrix.
`nodeRank`	nodeRank is number of nodes that are needed.

'node' is a vector of length m, m is gene number. 'node' defines weights for each gene.

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (M, nodeRank)
{
    node1 <- rowSums(abs(M))
    node2 <- colSums(abs(M))
    node <- node1 + node2
    node[rank(node) < length(node) - nodeRank + 1] <- 0
    return(node)
  }