if (FALSE) {
data(yeast)
esr = list('ESR 1' = yeast$esr1, 'ESR 2' = yeast$esr2)
test = neat(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)
}
Run the code above in your browser using DataLab