generator: Small helper functions
In nea: Network Enrichment Analysis

Description Usage Arguments Examples

Small helper functions

1	generator(g)

g

##---- 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 (g) 
{
    if (is.null(E(g)$weight)) 
        E(g)$weight = 1
    A <- get.adjacency(g, attr = "weight")
    D <- diag(apply(A, 1, sum))
    H <- A - D
    return(H)
  }