将边添加到无标度网络

【问题标题】：Add edges to scale-free network将边添加到无标度网络
【发布时间】：2020-06-08 18:57:26
【问题描述】：

这是我的代码：

network2 <- igraph::sample_pa(1000, m = 3, directed=F)
ecount(network2)

我的目标是一个有 1000 个顶点（完成）和 3000 个边（我只达到 2994）的网络。有没有办法根据 Barabasi/Albert 模型添加边而不仅仅是随机边？

【问题讨论】：

【解决方案1】：

这是 1000 个节点和 3000 个边的代码。

set.seed(1234)
g = sample_degseq(out.deg = rep(6,1000), method = "simple.no.multiple")
g

【讨论】：