Я сделал код для поиска вторых соседних узлов в графе, но это не работает хорошо.
function(x,a){
adj=x[]
return(which(adj[a,]==1))
}
Когда я использовал эту функцию, чтобы найти первые соседние узлы, она работала хорошо. НО
function(x,a){
n1<-b.function(x,a)
for(i in n1){
n2<-b.function(x,i)
}
n2=n2[n2!=a]
return(n2)
}
Я реализовал первую функцию здесь, чтобы найти вторые соседние узлы, и она не работала должным образом.
Например, я запускаю этот код, чтобы найти вторые соседние узлы s04, но он нашел только s10 и s05, но не 03. 