igraph中保度随机化加权随机图的获取

我有一个加权网络，其中节点高度互连（250个节点，其中90%的节点的度=249）。使用从0到1的归一化指数对连接进行加权，其中1表示强连接，接近0的值表示弱连接。网络的权重分布是右偏的，遵循幂律，大多数边的接近度接近于0

我使用保留度的随机测试，以便将网络级特征与从随机图中提取的相同特征的分布进行比较。我实施了以下形式的保度随机化：

#Obtain the degree distribution to be preserved in the randomised networks
gdegree <- degree(g)

#Generate 1000 random networks with the same degree distribution as g
g.random <- vector('list', 1000)
g.random.degree <- array(dim = c(1000,vcount(g)))

for(i in 1:1000){
  g.random[[i]] <- sample_degseq(gdegree)
  g.random.degree[i,] <- degree(g.random[[i]])
}

#获得随机网络中要保留的度分布
白鹭