set.seed(1)
g <- list()
for(i in 1:5){
g[[i]] <- igraph::sample_gnp(n=50, p=0.1)
}
for(i in 6:10){
g[[i]] <- igraph::sample_gnp(n=50, p=0.5)
}
for(i in 11:15){
g[[i]] <- igraph::sample_gnp(n=50, p=0.9)
}
graph.dist(g, dist = 'JS')
Run the code above in your browser using DataLab