powered by
rewire(graph, with)
each_edge
keeping_degseq
g <- make_ring(10) g %>% rewire(each_edge(p = .1, loops = FALSE)) %>% plot(layout=layout_in_circle) str(rewire(g, with = keeping_degseq(niter = vcount(g) * 10)))
Run the code above in your browser using DataLab