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