powered by
rg_reshuffling_tm(edgelist, seed=NULL)
## Load data (subset) net <- read.table("http://opsahl.co.uk/tnet/datasets/Newman-Cond_mat_95-99-two_mode.txt") net <- net[1:100,] ## Run the function rg_reshuffling_tm(net, seed=1)
Run the code above in your browser using DataLab