if (FALSE) {
data(yeast)
esr2 = list('ESR 2' = yeast$esr2)
test = neat(alist = esr2, blist = yeast$goslimproc, network = yeast$yeastnet,
nettype='undirected', nodes = yeast$ynetgenes, alpha = 0.01)
plot(test)
}
Run the code above in your browser using DataLab