Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- node1 node2 flow
- A B 12
- B A 6
- C A 1
- D B 3
- E A 4
- A E 10
- E B 1
- B E 2
- node1 node2 flow
- A B 18
- C A 1
- D B 3
- A E 14
- B E 3
- library(igraph)
- weighted_edgelist <- data.frame(
- node1 = c("A", "B", "C", "D", "E", "A", "E", "B"),
- node2 = c("B", "A", "A", "B", "A", "E", "B", "E"),
- flow = c(12, 6, 1, 3, 4, 10, 1, 2)
- )
- directed_graph <- graph.data.frame(weighted_edgelist, directed = TRUE)
- undirected_graph <- as.undirected(directed_graph,
- mode = "collapse", edge.attr.comb = "sum")
- res <- data.frame(get.edgelist(undirected_graph),
- get.edge.attribute(undirected_graph, "flow"))
- colnames(res) <- c("node1", "node2", "flow")
- res
- node1 node2 flow
- 1 A B 18
- 2 A C 1
- 3 B D 3
- 4 A E 14
- 5 B E 3
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement