tie_degree(ison_adolescents)
(ec <- tie_closeness(ison_adolescents))
plot(ec)
ison_adolescents %>%
activate(edges) %>% mutate(weight = ec) %>%
autographr()
(tb <- tie_betweenness(ison_adolescents))
plot(tb)
ison_adolescents %>%
activate(edges) %>% mutate(weight = tb) %>%
autographr()
tie_eigenvector(ison_adolescents)
Run the code above in your browser using DataLab