This function can be used together with rewire
to
randomly rewire the edges while preserving the original graph's degree
distribution.
keeping_degseq(loops = FALSE, niter = 100)
Whether to allow destroying and creating loop edges.
Number of rewiring trials to perform.
The rewiring algorithm chooses two arbitrary edges in each step ((a,b) and (c,d)) and substitutes them with (a,d) and (c,b), if they not already exists in the graph. The algorithm does not create multiple edges.
# NOT RUN {
g <- make_ring(10)
g %>%
rewire(keeping_degseq(niter = 20)) %>%
degree()
print_all(rewire(g, with = keeping_degseq(niter = vcount(g) * 10)))
# }
Run the code above in your browser using DataLab