नेटवर्क रैंडमाइज़ेशन

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 में नेटवर्क विश्लेषण