# NOT RUN {
# generate a toy graph
g1 <- igraph::make_graph(c(1, 2, 3, 4, 1, 3), directed = FALSE)
igraph::V(g1)$name <- c("n1", "n2", "n3", "n4")
# generate random graph according to the Erdos-Renyi model
g2 <- igraph::sample_gnm(10, 23)
igraph::V(g2)$name <- letters[1:10]
# run analyseNetwork
analyseNetwork(g1)
analyseNetwork(g2)
# }
Run the code above in your browser using DataLab