library(graph)
data(pancrCaIni)
library(ALL)
data(ALL)
library(hgu95av2.db)
collap1 = reduceES( ALL, nodes(pancrCaIni), revmap(hgu95av2SYMBOL), "symbol", mean )
library(RColorBrewer)
plotExGraph( pancrCaIni, collap1, 1 )
Run the code above in your browser using DataLab