# NOT RUN {
# 1) generate a random graph according to the ER model
set.seed(825)
g <- erdos.renyi.game(10, 3/10)
V(g)$name <- paste0('n',1:vcount(g))
# }
# NOT RUN {
# 2) perform connectivity enrichment analysis
data <- V(g)$name[1:3]
res <- xRWenricher(data, g, nbin=2)
# }
Run the code above in your browser using DataLab