# NOT RUN {
edge_mutual(ison_algebra)
edge_multiple(ison_algebra)
edge_loop(ison_algebra)
(eb <- edge_betweenness(ison_adolescents))
plot(eb)
ison_adolescents %>%
activate(edges) %>% mutate(weight = eb) %>%
autographr()
(ec <- edge_closeness(ison_adolescents))
plot(ec)
ison_adolescents %>%
activate(edges) %>% mutate(weight = ec) %>%
autographr()
# }
Run the code above in your browser using DataLab