# From igraph ------------------------------------------------------
if(requireNamespace("igraph")) {
g <- igraph::graph.famous("Zachary")
choose_format(g)
set.seed(123)
glist <- list(
igraph::sample_gnp(n = 15, p = 0.1),
igraph::sample_gnp(n = 15, p = 0.2),
igraph::sample_gnp(n = 15, p = 0.3),
igraph::sample_gnp(n = 15, p = 0.15, directed = TRUE))
choose_format(glist)
}
# From network -----------------------------------------------------
if(requireNamespace("network")) {
m <- matrix(rbinom(25,1,.4),15,15)
diag(m) <- 0
g <- network::network(m, directed=FALSE)
choose_format(g)
}
Run the code above in your browser using DataLab