네트워크 무작위화

R로 하는 네트워크 분석

James Curley

Associate Professor, University of Texas at Austin

랜덤 그래프

erdos.renyi.game(n = gorder(g), p.or.m = edge_density(g), type = "gnp")

랜덤 그래프 & 무작위화 검정

원본 네트워크를 기반으로 랜덤 그래프 1000개 생성 - 예: 동일한 정점 수와 근사 밀도 사용.
원본 네트워크의 평균 경로 길이 계산.
랜덤 네트워크 1000개의 평균 경로 길이 계산.
원본 네트워크의 평균 경로 길이보다 크거나 작은 랜덤 네트워크 수 파악.

랜덤 그래프 1000개 생성:

gl <- vector('list',1000)

for(i in 1:1000){
    gl[[i]] <- erdos.renyi.game(
                    n = gorder(g), 
                    p.or.m = edge_density(g), 
                    type = "gnp"
                     ) 
}

랜덤 그래프 1000개의 평균 경로 길이 계산:

gl.apls <- unlist(
  lapply(gl, mean_distance, directed = FALSE) 
)

원본 네트워크와 비교

hist(gl.apls, breaks = 20)

abline(
  v = mean_distance(
    g, directed=FALSE
    ),
      col = "red", 
      lty = 3, 
      lwd = 2
)

연습해 봅시다!

R로 하는 네트워크 분석