R igraph添加新节点并获得最大间距

Question

我需要做的是向图形中添加一个新顶点并找到要添加到其中的两条边，以便为它获得（非常）大的间接性。 我试图做的是为一个非常中心的节点创建一个边缘，并迭代所有其他节点，并尝试获得这个新节点的最大间隔。问题是R igraph需要永远完成（我不知道它是否会完成......） 有什么想法吗？ 这是我的代码：

    add.vertices(graph = g, nv = 1)
    newId <- max(V(g))
    add.edges(graph = g,c(newId,755))
    biggestBetNew <- 0
    bestNodeToAdd <- 0
    for(i in 1:max(V(g))){
      add.edges(graph = g,c(newId,i))
      newBet <- betweenness(graph = g, v = V(g)[newId], normalized = T)
      if(newBet > biggestBetNew){
        biggestBetNew <- newBet
        bestNodeToAdd <- i
      }
      delete.edges(graph = g, c(newId,i))
    }