Плотность сети

[tymofii]

В педагогических целях решил создать легкую илюстрацию для студентов. Как меняется сеть, если увеличивать плотность пошагово.

library("ergm")

dens<-numeric(10)
dens[1] <- dens[2] <- 0.01
for (i in 2:10) {
dens[i]<-dens[i-1]+dens[1]
}

for (i in 1:10){
  n<-as.network.numeric(200)
  n1<-as.network.numeric(200, density=dens[i], coord=n, directed=F)
  plot(n1)
}