# From matrix
adj <- matrix(c(0, .5, .8, 0,
.5, 0, .3, .6,
.8, .3, 0, .4,
0, .6, .4, 0), 4, 4, byrow = TRUE)
rownames(adj) <- colnames(adj) <- c("A", "B", "C", "D")
to_matrix(adj)
# From cograph_network
net <- as_cograph(adj)
to_matrix(net)
# From igraph (weighted graph)
if (requireNamespace("igraph", quietly = TRUE)) {
g <- igraph::graph_from_adjacency_matrix(adj, mode = "undirected", weighted = TRUE)
to_matrix(g)
}
Run the code above in your browser using DataLab