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

Description Usage Arguments Value Examples

This function identifies key regulators of dynamic gene regulatory network

1	idNodes(network, flag, tf)

`network`	network is dynamic gene regulatory network, a list of matrix.
`flag`	Indicator of functional genes, a zero-one vector of length m, where m is gene number.
`tf`	A vector of gene names.

'genes' is the vector of identified genes.

##---- 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 (network, flag, tf)
{
    a <- sum(flag)
    n <- length(network)
    genes <- matrix(0, a, (n + 1))
    rownames(genes) <- tf[which(flag == 1), 1]
    for (i in c(1:a)) {
        fflag <- flag
        fflag[which(flag == 1)[i]] <- 2
        genes[i, (1:n)] <- DGIE(network, fflag, tf)
        genes[i, (n + 1)] <- sd(genes[i, 1:n])
    }
    genes <- genes[order(genes[, (n + 1)]), ]
    return(genes)
  }