if (FALSE) {
  #setwd("tests")
  for (i in 1:50) {
     net <- GenerateNet(N = 1000)
     net <- GenerateNet(N = 1000, prob_m = TRUE)
    
  }
}