# NOT RUN {
library(igraph)
#create a list of balanced network using the biconnected_network dataset
balanced_list <-create_balanced_blocks(biconnected_network,
bigraph = biconnected_components(biconnected_network))
#count the edges in each of the bi-components
sapply(balanced_list, ecount)
# }
Run the code above in your browser using DataLab