В педагогических целях решил создать легкую илюстрацию для студентов. Как меняется сеть, если увеличивать плотность пошагово.
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
(
Read more... )