library(igraph)
# random graph
g = sample_gnm(1000, 4000)
# SIR model simulation
# beta: Non-negative scalar. The rate of infection of an individual
# that is susceptible and has a single infected neighbor
# gamma: Positive scalar. The rate of recovery of an infected individual
sm = sir(g, beta=0.25, gamma=0.5, no.sim = 500)
# plot infected
plot(sm, comp = "NI")

# plot susceptibles
plot(sm, comp = "NS")

# plot removed
plot(sm, comp = "NR")

# median and quantile of S, I and R
median(sm)
## $NS
## [0,0.541] (0.541,1.08] (1.08,1.62] (1.62,2.16] (2.16,2.71] (2.71,3.25]
## 998.0 992.0 982.0 962.0 929.0 874.0
## (3.25,3.79] (3.79,4.33] (4.33,4.87] (4.87,5.41] (5.41,5.95] (5.95,6.49]
## 799.0 711.0 611.0 511.0 420.0 342.0
## (6.49,7.03] (7.03,7.58] (7.58,8.12] (8.12,8.66] (8.66,9.2] (9.2,9.74]
## 275.0 227.0 190.0 162.0 143.0 129.0
## (9.74,10.3] (10.3,10.8] (10.8,11.4] (11.4,11.9] (11.9,12.4] (12.4,13]
## 119.0 112.0 107.0 104.0 100.0 97.0
## (13,13.5] (13.5,14.1] (14.1,14.6] (14.6,15.2] (15.2,15.7] (15.7,16.2]
## 95.0 94.0 93.0 91.0 91.0 91.0
## (16.2,16.8] (16.8,17.3] (17.3,17.9] (17.9,18.4] (18.4,18.9] (18.9,19.5]
## 90.0 92.0 90.0 90.0 89.0 90.0
## (19.5,20] (20,20.6] (20.6,21.1] (21.1,21.6] (21.6,22.2] (22.2,22.7]
## 90.0 88.0 89.0 91.0 90.5 89.0
## (22.7,23.3] (23.3,23.8] (23.8,24.4] (24.4,24.9] (24.9,25.4] (25.4,26]
## 87.0 87.0 89.0 92.5 88.0 90.5
## (26,26.5] (26.5,27.1] (27.1,27.6] (27.6,28.1] (28.1,28.7] (28.7,29.2]
## 82.0 81.0 72.0 82.0 97.0 86.0
## (29.2,29.8] (29.8,30.3] (30.3,30.8] (30.8,31.4] (31.4,31.9] (31.9,32.5]
## 110.0 96.0 99.0 96.0 65.0 64.0
## (32.5,33] (33,33.6] (33.6,34.1] (34.1,34.6] (34.6,35.2] (35.2,35.7]
## 79.5 62.0 62.0 NA NA NA
## (35.7,36.3] (36.3,36.8] (36.8,37.3] (37.3,37.9] (37.9,38.4] (38.4,39]
## NA NA 62.0 NA NA 91.0
## (39,39.5]
## 90.0
##
## $NI
## [0,0.541] (0.541,1.08] (1.08,1.62] (1.62,2.16] (2.16,2.71] (2.71,3.25]
## 2.0 7.0 14.0 28.0 51.0 90.0
## (3.25,3.79] (3.79,4.33] (4.33,4.87] (4.87,5.41] (5.41,5.95] (5.95,6.49]
## 140.0 195.0 248.0 291.0 308.0 312.0
## (6.49,7.03] (7.03,7.58] (7.58,8.12] (8.12,8.66] (8.66,9.2] (9.2,9.74]
## 305.0 288.0 265.0 234.0 200.0 168.0
## (9.74,10.3] (10.3,10.8] (10.8,11.4] (11.4,11.9] (11.9,12.4] (12.4,13]
## 137.0 113.0 91.0 74.0 59.0 47.0
## (13,13.5] (13.5,14.1] (14.1,14.6] (14.6,15.2] (15.2,15.7] (15.7,16.2]
## 38.0 30.0 23.0 18.0 15.0 11.0
## (16.2,16.8] (16.8,17.3] (17.3,17.9] (17.9,18.4] (18.4,18.9] (18.9,19.5]
## 9.0 8.0 6.0 5.0 3.5 3.0
## (19.5,20] (20,20.6] (20.6,21.1] (21.1,21.6] (21.6,22.2] (22.2,22.7]
## 3.0 2.0 1.0 1.0 1.0 0.5
## (22.7,23.3] (23.3,23.8] (23.8,24.4] (24.4,24.9] (24.9,25.4] (25.4,26]
## 1.0 0.0 0.0 0.0 0.0 0.0
## (26,26.5] (26.5,27.1] (27.1,27.6] (27.6,28.1] (28.1,28.7] (28.7,29.2]
## 0.0 0.0 4.0 0.0 0.0 0.0
## (29.2,29.8] (29.8,30.3] (30.3,30.8] (30.8,31.4] (31.4,31.9] (31.9,32.5]
## 0.0 0.0 0.0 2.0 2.5 3.0
## (32.5,33] (33,33.6] (33.6,34.1] (34.1,34.6] (34.6,35.2] (35.2,35.7]
## 2.5 5.0 3.0 NA NA NA
## (35.7,36.3] (36.3,36.8] (36.8,37.3] (37.3,37.9] (37.9,38.4] (38.4,39]
## NA NA 1.0 NA NA 0.0
## (39,39.5]
## 0.0
##
## $NR
## [0,0.541] (0.541,1.08] (1.08,1.62] (1.62,2.16] (2.16,2.71] (2.71,3.25]
## 0.0 1.0 4.0 9.0 19.0 35.0
## (3.25,3.79] (3.79,4.33] (4.33,4.87] (4.87,5.41] (5.41,5.95] (5.95,6.49]
## 61.0 95.0 139.0 195.0 256.0 326.0
## (6.49,7.03] (7.03,7.58] (7.58,8.12] (8.12,8.66] (8.66,9.2] (9.2,9.74]
## 401.0 471.0 538.0 602.0 657.0 704.0
## (9.74,10.3] (10.3,10.8] (10.8,11.4] (11.4,11.9] (11.9,12.4] (12.4,13]
## 744.0 776.0 803.0 823.0 842.0 854.0
## (13,13.5] (13.5,14.1] (14.1,14.6] (14.6,15.2] (15.2,15.7] (15.7,16.2]
## 865.0 875.0 882.0 888.0 892.0 896.0
## (16.2,16.8] (16.8,17.3] (17.3,17.9] (17.9,18.4] (18.4,18.9] (18.9,19.5]
## 899.0 900.0 902.0 905.0 907.0 907.0
## (19.5,20] (20,20.6] (20.6,21.1] (21.1,21.6] (21.6,22.2] (22.2,22.7]
## 908.0 910.0 910.0 908.5 908.0 909.5
## (22.7,23.3] (23.3,23.8] (23.8,24.4] (24.4,24.9] (24.9,25.4] (25.4,26]
## 912.0 913.0 910.5 905.5 912.0 908.5
## (26,26.5] (26.5,27.1] (27.1,27.6] (27.6,28.1] (28.1,28.7] (28.7,29.2]
## 918.0 919.0 926.0 918.0 901.0 914.0
## (29.2,29.8] (29.8,30.3] (30.3,30.8] (30.8,31.4] (31.4,31.9] (31.9,32.5]
## 890.0 904.0 901.0 902.0 932.5 933.0
## (32.5,33] (33,33.6] (33.6,34.1] (34.1,34.6] (34.6,35.2] (35.2,35.7]
## 918.0 933.0 935.0 NA NA NA
## (35.7,36.3] (36.3,36.8] (36.8,37.3] (37.3,37.9] (37.9,38.4] (38.4,39]
## NA NA 937.0 NA NA 909.0
## (39,39.5]
## 910.0
quantile(sm, comp = "NI", prob = 0.50)
## [0,0.541] (0.541,1.08] (1.08,1.62] (1.62,2.16] (2.16,2.71] (2.71,3.25]
## 2.0 7.0 14.0 28.0 51.0 90.0
## (3.25,3.79] (3.79,4.33] (4.33,4.87] (4.87,5.41] (5.41,5.95] (5.95,6.49]
## 140.0 195.0 248.0 291.0 308.0 312.0
## (6.49,7.03] (7.03,7.58] (7.58,8.12] (8.12,8.66] (8.66,9.2] (9.2,9.74]
## 305.0 288.0 265.0 234.0 200.0 168.0
## (9.74,10.3] (10.3,10.8] (10.8,11.4] (11.4,11.9] (11.9,12.4] (12.4,13]
## 137.0 113.0 91.0 74.0 59.0 47.0
## (13,13.5] (13.5,14.1] (14.1,14.6] (14.6,15.2] (15.2,15.7] (15.7,16.2]
## 38.0 30.0 23.0 18.0 15.0 11.0
## (16.2,16.8] (16.8,17.3] (17.3,17.9] (17.9,18.4] (18.4,18.9] (18.9,19.5]
## 9.0 8.0 6.0 5.0 3.5 3.0
## (19.5,20] (20,20.6] (20.6,21.1] (21.1,21.6] (21.6,22.2] (22.2,22.7]
## 3.0 2.0 1.0 1.0 1.0 0.5
## (22.7,23.3] (23.3,23.8] (23.8,24.4] (24.4,24.9] (24.9,25.4] (25.4,26]
## 1.0 0.0 0.0 0.0 0.0 0.0
## (26,26.5] (26.5,27.1] (27.1,27.6] (27.6,28.1] (28.1,28.7] (28.7,29.2]
## 0.0 0.0 4.0 0.0 0.0 0.0
## (29.2,29.8] (29.8,30.3] (30.3,30.8] (30.8,31.4] (31.4,31.9] (31.9,32.5]
## 0.0 0.0 0.0 2.0 2.5 3.0
## (32.5,33] (33,33.6] (33.6,34.1] (34.1,34.6] (34.6,35.2] (35.2,35.7]
## 2.5 5.0 3.0 NA NA NA
## (35.7,36.3] (36.3,36.8] (36.8,37.3] (37.3,37.9] (37.9,38.4] (38.4,39]
## NA NA 1.0 NA NA 0.0
## (39,39.5]
## 0.0