# \donttest{
adj <- matrix(c(0, 1, 1, 1, 0, 1, 1, 1, 0), nrow = 3)
# With cograph()
net <- cograph(adj)
sn_save(net, file.path(tempdir(), "network.pdf"))
# Direct matrix input
sn_save(adj, file.path(tempdir(), "network.png"), dpi = 300)
# }
Run the code above in your browser using DataLab