Ngẫu nhiên hóa mạng

Phân tích Mạng lưới trong R

James Curley

Associate Professor, University of Texas at Austin

Đồ thị ngẫu nhiên

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

Đồ thị ngẫu nhiên & kiểm định ngẫu nhiên hóa

Tạo 1000 đồ thị ngẫu nhiên dựa trên mạng gốc — ví dụ: cùng số đỉnh và mật độ xấp xỉ.
Tính độ dài đường đi trung bình của mạng gốc.
Tính độ dài đường đi trung bình của 1000 mạng ngẫu nhiên.
Xác định có bao nhiêu mạng ngẫu nhiên có độ dài đường đi trung bình lớn hơn hoặc nhỏ hơn so với mạng gốc.

Tạo 1000 đồ thị ngẫu nhiên:

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"
                     ) 
}

Tính độ dài đường đi trung bình của 1000 đồ thị ngẫu nhiên:

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

So sánh với mạng gốc

hist(gl.apls, breaks = 20)

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

Cùng luyện tập nào!

Phân tích Mạng lưới trong R