向无标度网络中添加边缘

Question

这是我的代码：

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

我的目标是建立一个具有1000个顶点（完成）和3000个边的网络（我只能达到2994个）。有没有一种方法可以根据Barabasi / Albert模型添加边缘，而不仅仅是随机边缘？

Answer 1

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

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