###################################################
### chunk number 1: do1
###################################################
library(pathRender)
plot(G1 <- graphcMAP("p53pathway"))
G1
nodes(G1)[1:5]


###################################################
### chunk number 2: do2
###################################################
plot(G2 <- graphcMAP("raspathway"))