###################################################
### chunk number 1: 
###################################################
library(graph)
library(RbcBook1)
cache(bigran <- randomGraph( paste("a", 1:50), 1:30 , .4 ))