# From adjacency matrix ----------------------------------------------------
am <- matrix(c(
0,1,1,
1,0,0,
1,0,0
), byrow=TRUE, ncol=3)
as_graph6(am)
# From igraph objects ------------------------------------------------------
if(requireNamespace("igraph", quietly=TRUE)) {
g <- igraph::graph_from_adjacency_matrix(am, mode = "undirected")
as_graph6(g)
}
# From network objects -----------------------------------------------------
if(requireNamespace("network", quietly=TRUE)) {
net <- network::network(am, directed=FALSE)
as_graph6(net)
}
Run the code above in your browser using DataLab