## 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,]
# o1=test1[test1$conclusion=='Overenrichment',]
# # list of overenrichments for the first ESR set:
# print(o1, nrows='ALL')
#
# test2 = test[100:198,]
# o2=test2[test2$conclusion=='Overenrichment',]
# # list of overenrichments for the second ESR set:
# print(o2, nrows='ALL')
# ## End(Not run)
Run the code above in your browser using DataLab