9.3 Number of edges

Number of edges

network_edge_counts <- lapply(ego_nets_simple, ecount)
network_edge_counts <- unlist(network_edge_counts)
hist(network_edge_counts, main = "Histogram of Ego Network Edge Counts", xlab = "# of Edges")

random_ego_net <- ego_nets_simple[[1]]
ecount(random_ego_net)/((vcount(random_ego_net) * (vcount(random_ego_net) - 1))/2)

## [1] 0.8333333