###################################################
### chunk number 1: 
###################################################
#line 46 "vignettes/RbcBook1/inst/doc/RbcBook1.Rnw"
library(graph)
library(RbcBook1)
cache(bigran <- randomGraph( paste("a", 1:50), 1:30 , .4 ))