set.seed(12)
d <- build_net(11,22,21,0.2)
set.seed(123)
null_model(d)
set.seed(123)
null_model(d,null_type="subnetwork1")
set.seed(123)
null_model(d,null_type="Savue")
set.seed(123)
null_model(d,number=2,null_type="Savue")
Run the code above in your browser using DataLab