我怎样才能让 R 做这些社交网络分析矩阵计算？

问题描述

我知道 igraph-constraint 函数。

该函数主要计算图形中的 3 个不同问题（如公式所示）。

我想用 ADJACENCY LIST 计算这些特征中的每一个

这些是我尝试制作的代码。第一个公式确实有效，但速度非常慢，第二个公式似乎真的不起作用。

for(m in 1962:2019)
  {
  a<-AdjacencyFromEdgelist(get(paste0("dataexport",m)),check.full = TRUE)

  nodelist<-as.data.frame(a$nodelist)
  names(nodelist)[1] <- "nodelist"

  x<-as.data.frame(a$adjacency)

    for(i in 1:length(nodelist$nodelist))
      {
        for(j in 1:length(nodelist$nodelist))
          {
            re[i,j]<-(x[i,j]+x[j,i])/(colSums(x)[i]+rowSums(x)[i])
            assign( paste0("export",m),re )
          }
    }
}

for(m in 1962:2019)
{
  
  a<-get(paste0("export",m))

  x<-a
 
  for(i in 1:length(nodelist$nodelist))
  {
    for(j in 1:length(nodelist$nodelist))
    {
      for(q in 1:length(nodelist$nodelist))
      {
        f<-(x[i,q]*x[q,i])
        a<-a+f
        sq[i,j]<-a*rowSums(x)[i]
      }
      assign( paste0("export2nd",sq )
    }
  }
}

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）