## Not run:
# data(yeast)
# esr = list('ESR 1' = yeast$esr1, 'ESR 2' = yeast$esr2)
# test = pnea(alist = esr, blist = yeast$goslimproc, network = yeast$yeastnet,
# nettype = 'undirected', nodes = yeast$ynetgenes, alpha = 0.01)
#
# test1 = test[1:99,]
# summary(test1)
#
# test2 = test[100:198,]
# summary(test2)
# ## End(Not run)
Run the code above in your browser using DataLab