Ngẫu nhiên hóa tính chuyển tiếp (Transitivity)
Tương tự như với độ dài đường đi trung bình, hãy kiểm tra xem tính chuyển tiếp toàn cục của mạng Forrest Gump có cao hơn đáng kể so với kỳ vọng ngẫu nhiên cho các mạng có cùng kích thước và mật độ hay không. Bạn có thể so sánh tính chuyển tiếp toàn cục của Forrest Gump với 1000 mạng ngẫu nhiên khác.
Bài tập này là một phần của khóa học
Phân tích Mạng lưới trong R
Hướng dẫn bài tập
- Một nghìn mạng ngẫu nhiên được lưu trong đối tượng list
gl. Dùnglapply()vàtransitivity()để tính tính chuyển tiếp toàn cục cho từng mạng này. Gán kết quả vàogl.tr. - Dùng
unlist()để chuyểngl.trthành một vector sốgl.trs. - Khám phá thống kê tóm tắt của các giá trị tính chuyển tiếp của các mạng ngẫu nhiên bằng
summary(). - Tính tỷ lệ đồ thị ngẫu nhiên có tính chuyển tiếp cao hơn tính chuyển tiếp của mạng Forrest Gump, giá trị mà bạn đã tính trước đó và gán vào
g.tr.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
library(igraph)
# Calculate average transitivity of 1000 random graphs
gl.tr <- ___(gl, ___)
gl.trs <- ___(gl.tr)
# Get summary statistics of transitivity scores
___(gl.trs)
# Calculate the proportion of graphs with a transitivity score higher than Forrest Gump's network
mean(gl.trs > ___)