nodes <- c("A", "B", "C")
l1 <- matrix(c(0, 1, 0, 1, 0, 1, 0, 1, 0), 3, 3, dimnames = list(nodes, nodes))
l2 <- matrix(c(0, 1, 1, 1, 0, 0, 1, 0, 0), 3, 3, dimnames = list(nodes, nodes))
layers <- list(L1 = l1, L2 = l2)
aggregate_layers(layers, "sum") # total edge weight
aggregate_layers(layers, "mean") # average edge weight
aggregate_layers(layers, "union") # edge present in any layer
aggregate_layers(layers, "intersection") # edge present in every layer
Run the code above in your browser using DataLab