# NOT RUN {
marvel_friends <- to_unsigned(ison_marvel_relationships)
marvel_friends <- to_main_component(marvel_friends) %>%
filter(PowerOrigin == "Human")
(cugtest <- test_random(marvel_friends, graph_ei_index, attribute = "Attractive",
nSim = 200))
plot(cugtest)
(qaptest <- test_permutation(marvel_friends, graph_ei_index, attribute = "Attractive",
nSim = 200))
plot(qaptest)
# }
Run the code above in your browser using DataLab