nem.calcSignificance {nem}R Documentation

Statistical significance of network hypotheses

Description

Assess statistical significance of a network hypothesis by comparing it to a null hypothesis.

Usage

        nem.calcSignificance(D, x, N=1000, seed=1, Pe=NULL, Pm=NULL, selEGenes=(length(x$selected) != nrow(D)))

Arguments

D data matrix with experiments in the columns (binary or continious)
x nem object
N number of random networks to sample
seed random seed
Pe prior of effect reporter positions in the phenotypic hierarchy (same dimension as D)
Pm prior over models (n x n matrix)
selEGenes automated E-gene subset selection yes/no

Details

Given data, N random network hypotheses from a null distribution are drawn as follows: For each S-gene $S_k$ we randomly choose a number o of outgoing edges between 0 and 3. We then select o S-genes having at most 1 ingoing edge, connected $S_k$ to them and transitively closed the graph. For all random network hypotheses it is counted, how often their likelihood is bigger than that of the given network. This yields an exact p-value.

Another way of assessing the statistical significance of the network hypothesis is to draw random permutations of the node labels. Note that in this case the node degree distribution is the same as in the given network. Again, we can obtain an exact p-value by counting, how often the likelihood of the permuted network is bigger than that of the given network.

Finally, comparison to randomly perturbed networks (insertion or deletion of 1 edge) yields an exact p-value describing the stability of the network.

Value

p.value.rnd p-value of the network according to the null hypothesis that it is random
p.value.perm p-value of the network according to the null hypothesis that a network with permuted node labels is at least as good
p.value.mod p-value of the network according to the null hypothesis a randomly peturbed network is at least as good

Author(s)

Holger Froehlich

See Also

nem.consensus, nem.jackknife, nem.bootstrap, nem

Examples

## Not run: 
   data("BoutrosRNAi2002")
   D <- BoutrosRNAiDiscrete[,9:16]
   p <- c(.13,.05)
   res = nem(D, para=p) # get best network
   nem.calcSignificance(D,res) # assess its statistical significance
## End(Not run)

[Package nem version 2.6.0 Index]