# NOT RUN {
mpn_elite_mex <- mpn_elite_mex %>% to_subgraph(in_mpn == 1)
mpn_elite_mex2 <- mpn_elite_mex %>%
tidygraph::activate(edges) %>%
tidygraph::reroute(from = sample.int(11, 44, replace = TRUE),
to = sample.int(11, 44, replace = TRUE))
ggevolution(mpn_elite_mex, mpn_elite_mex2)
ggevolution(mpn_elite_mex, mpn_elite_mex2, based_on = "last")
ggevolution(mpn_elite_mex, mpn_elite_mex2, based_on = "both")
# }
Run the code above in your browser using DataLab