R :이 루프를 가지고 sapply

Question

를 사용하여 루프를 다시 작성 :

for(i in E(g)){ 
    a = ends(g, i)[1] 
    b = ends(g, i)[2] 
    source_neighbors = neighbors(g, a) 
    target_neighbors = neighbors(g, b) 
    num_overlap_neighbors = length(intersection(source_neighbors, target_neighbors)) 
    print(num_overlap_neighbors) 
} 

g, 나는 패키지를 igraph 사용 된 GML 그래프이다. 이 함수를 함수로 다시 쓰고 싶으면 sapply()을 사용하여 E(g)에 함수를 적용하여 벡터를 출력으로 가져옵니다.

Answer 1

results=sapply(E(g), function(i){ 
    a = ends(g, i)[1] 
    b = ends(g, i)[2] 
    source_neighbors = neighbors(g, a) 
    target_neighbors = neighbors(g, b) 
    num_overlap_neighbors = length(intersection(source_neighbors, target_neighbors)) 

    return(num_overlap_neighbors) 
}) 
print(results)