zeroo <- list()
nCols <- 10:50
for (i in 1:length(nCols)){
zeroo[[i]] <- genweb(10, nCols[i], dens=2)
names(zeroo)[i] <- paste0("Gweb", nCols[i])
}

h<-(rep (0,810))
Module <-array(h, dim=c(9,9,10))
for(i in 1:10){
Module[1:3,1:3,i ]<-genweb(3, 3, dens=100)
Module[4:6,4:6,i ]<-genweb(3, 3, dens=100)
Module[7:9,7:9,i ]<-genweb(3, 3, dens=100)
}

allwebs <- c(obswebs, zeroo)