Tạo 1000 đồ thị ngẫu nhiên từ đồ thị gốc g bằng cách chạy đoạn mã tạo đối tượng danh sách gl và vòng lặp for.
Tính độ dài đường đi trung bình của 1000 đồ thị ngẫu nhiên bằng lapply(). Tạo vector gl.apls gồm 1000 giá trị này bằng cách chạy đoạn mã dùng unlist().
Vẽ histogram của độ dài đường đi trung bình của 1000 đồ thị ngẫu nhiên bằng hist() trên vector gl.apls. Thêm một đường thẳng đứng màu đỏ, nét đứt vào biểu đồ bằng abline() với hoành độ là giá trị độ dài đường đi trung bình của đồ thị gốc, g.apl.
Tính tỷ lệ số lần giá trị độ dài đường đi trung bình của các đồ thị ngẫu nhiên gl.apls nhỏ hơn giá trị của đồ thị gốc g.apl. Về bản chất, đây là xác suất để chúng ta kỳ vọng quan sát được độ dài đường đi trung bình như vậy một cách ngẫu nhiên, khi biết mật độ và số đỉnh của đồ thị gốc.

Câu đố về ngẫu nhiên hóa

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