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