R中链接预测的Adamic Adar系数

Question

嘿伙计们我试图编写一个计算求和的R函数。具体编程如下公式： formula

这就是我所拥有的，但我无法弄清楚为什么它不会工作或我做错了什么。请注意，此功能类似于Adamic Adar得分系数。

请注意原始数据被称为＆＃34; fblog＆＃34;并有192个顶点。

#Scoring function
library(sand)
nv <- vcount(fblog)
ncn2 <- numeric()
upgrade_graph(fblog)
A2 <- get.adjacency(fblog)
for(i in (1:(nv-1))){
 ni <- neighborhood(fblog, 1, i)
 nj <- neighborhood(fblog, 1, (i+1):nv)
 nbhd.ij <- mapply(intersect, ni, nj, SIMPLIFY=FALSE)
 for(i in unlist(nbhd.ij)) {
    k_deg = unlist(lapply(nbhd.ij, length))
    temp = 1/(log(k_deg))
 }
 ncn2 <- c(ncn2, temp)
}