인접 행렬
이번 연습 문제에서는 네트워크의 1차와 2차 인접 행렬을 추출하고 계산해 보겠습니다.
슬라이드에서 as_adjaceny_matrix() 함수를 사용해 1차 인접 행렬을 추출하는 방법을 이미 보셨죠.
2차 인접 행렬은 1차 인접 행렬을 자기 자신과 곱한 뒤, 가중치가 없는 네트워크만 다루므로 양의 값을 모두 1로 바꿔 주세요. 또한 자기 루프(self-edge)는 허용하지 않으므로, 대각 원소는 0이 되도록 해야 합니다.
이 연습은 강의의 일부입니다
R로 배우는 네트워크 데이터 기반 Predictive Analytics
연습 안내
as_adjacency_matrix()함수를 사용해 네트워크의 인접 행렬을 추출하고, 행렬 이름을AdjacencyMatrix로 지정하세요.AdjacencyMatrix를 자기 자신과 곱해 2차 인접 행렬을 계산하고, 이를SecondOrderMatrix_adj라고 부르세요.SecondOrderMatrix_adj를 조건으로 사용해 모든 양의 값을 1로 만드는 새 행렬SecondOrderMatrix를 만드세요. 대각 원소는 0이어야 합니다.SecondOrderMatrix의 처음 10개 행과 처음 10개 열을 확인하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Extract the adjacency matrix
AdjacencyMatrix <- as_adjacency_matrix(___)
# Compute the second order matrix
SecondOrderMatrix_adj <- ___ %*% ___
# Adjust the second order matrix
SecondOrderMatrix <- ((___) > 0) + 0
diag(SecondOrderMatrix) <- 0
# Inspect the second order matrix
SecondOrderMatrix[___:___, ___:___]