marvel_friends <- to_unsigned(ison_marvel_relationships)
marvel_friends <- to_giant(marvel_friends) %>%
to_subgraph(PowerOrigin == "Human")
(cugtest <- test_random(marvel_friends, network_homophily, attribute = "Attractive",
times = 200))
plot(cugtest)
(qaptest <- test_permutation(marvel_friends,
network_homophily, attribute = "Attractive",
times = 200))
plot(qaptest)
Run the code above in your browser using DataLab