การสุ่มค่า Transitivity
เช่นเดียวกับที่ทำกับค่าเฉลี่ยความยาวเส้นทาง ลองมาตรวจสอบกันว่า global transitivity ของเครือข่าย Forrest Gump นั้นสูงกว่าที่คาดได้โดยบังเอิญในเครือข่ายสุ่มที่มีขนาดและความหนาแน่นเท่ากันหรือไม่ โดยสามารถเปรียบเทียบค่า global transitivity ของ Forrest Gump กับเครือข่ายสุ่มอีก 1,000 เครือข่าย
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
การวิเคราะห์เครือข่ายใน R
คำแนะนำการฝึกหัด
- เครือข่ายสุ่ม 1,000 เครือข่ายถูกเก็บไว้ในออบเจกต์รายการ
glใช้lapply()ร่วมกับtransitivity()เพื่อคำนวณค่า global transitivity ของแต่ละเครือข่าย แล้วกำหนดผลลัพธ์ที่ได้ให้กับgl.tr - ใช้
unlist()แปลงgl.trให้เป็นเวกเตอร์ตัวเลขgl.trs - ตรวจสอบสถิติสรุปของค่า transitivity ของเครือข่ายสุ่มโดยใช้
summary() - คำนวณสัดส่วนของกราฟสุ่มที่มีค่า transitivity สูงกว่าค่า transitivity ของเครือข่าย Forrest Gump ซึ่งคำนวณและกำหนดค่าไว้แล้วในตัวแปร
g.tr
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
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 > ___)