-
Notifications
You must be signed in to change notification settings - Fork 0
/
hw7.jl
2002 lines (1631 loc) · 68.9 KB
/
hw7.jl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
### A Pluto.jl notebook ###
# v0.19.26
#> [frontmatter]
#> chapter = 2
#> section = 7.5
#> order = 7.5
#> homework_number = 7
#> title = "Epidemic modeling I"
#> layout = "layout.jlhtml"
#> tags = ["homework", "module2", "epidemiology", "track_data", "monte carlo", "statistics", "track_math", "ODE", "agent based model", "differential equation", "type", "structure", "plotting"]
#> description = "Simulate the spread of an epidemic by creating your own agent-based model from scratch, and find statistics using the Monte Carlo method."
using Markdown
using InteractiveUtils
# This Pluto notebook uses @bind for interactivity. When running this notebook outside of Pluto, the following 'mock version' of @bind gives bound variables a default value (instead of an error).
macro bind(def, element)
quote
local iv = try
Base.loaded_modules[Base.PkgId(
Base.UUID("6e696c72-6542-2067-7265-42206c756150"),
"AbstractPlutoDingetjes",
)].Bonds.initial_value
catch
b -> missing
end
local el = $(esc(element))
global $(esc(def)) = Core.applicable(Base.get, el) ? Base.get(el) : iv(el)
el
end
end
# ╔═╡ 15187690-0403-11eb-2dfd-fd924faa3513
using Plots, PlutoUI
# ╔═╡ f1dd4abf-66d7-4fa4-bc39-cc251199f768
using Statistics
# ╔═╡ 01341648-0403-11eb-2212-db450c299f35
md"_homework 7, version 3_"
# ╔═╡ 06f30b2a-0403-11eb-0f05-8badebe1011d
md"""
# **Homework 7**: _Epidemic modeling_
`18.S191`, Fall 2023
This notebook contains _built-in, live answer checks_! In some exercises you will see a coloured box, which runs a test case on your code, and provides feedback based on the result. Simply edit the code, run it, and the check runs again.
Feel free to ask questions!
"""
# ╔═╡ 107e65a4-0403-11eb-0c14-37d8d828b469
md"""
#### Initializing packages
_When running this notebook for the first time, this could take up to 15 minutes. Hang in there!_
"""
# ╔═╡ d8797684-0414-11eb-1869-5b1e2c469011
function bernoulli(p::Number)
rand() < p
end
# ╔═╡ 61789646-0403-11eb-0042-f3b8308f11ba
md"""
## **Exercise 1:** _Agent-based model for an epidemic outbreak -- types_
In this and the following exercises we will develop a simple stochastic model for combined infection and recovery in a population, which may exhibit an **epidemic outbreak** (i.e. a large spike in the number of infectious people).
The population is **well mixed**, i.e. everyone is in contact with everyone else.
[An example of this would be a small school or university in which people are
constantly moving around and interacting with each other.]
The model is an **individual-based** or **agent-based** model:
we explicitly keep track of each individual, or **agent**, in the population and their
infection status. For the moment we will not keep track of their position in space;
we will just assume that there is some mechanism, not included in the model, by which they interact with other individuals.
#### Exercise 1.1
Each agent will have its own **internal state**, modelling its infection status, namely "susceptible", "infectious" or "recovered". We would like to code these as values `S`, `I` and `R`, respectively. One way to do this is using an [**enumerated type**](https://en.wikipedia.org/wiki/Enumerated_type) or **enum**. Variables of this type can take only a pre-defined set of values; the Julia syntax is as follows:
"""
# ╔═╡ 26f84600-041d-11eb-1856-b12a3e5c1dc7
@enum InfectionStatus S I R
# ╔═╡ 271ec5f0-041d-11eb-041b-db46ec1465e0
md"""
We have just defined a new type `InfectionStatus`, as well as names `S`, `I` and `R` that are the (only) possible values that a variable of this type can take.
👉 Define a variable `test_status` whose value is `S`.
"""
# ╔═╡ 7f4e121c-041d-11eb-0dff-cd0cbfdfd606
test_status = S
# ╔═╡ 7f744644-041d-11eb-08a0-3719cc0adeb7
md"""
👉 Use the `typeof` function to find the type of `test_status`.
"""
# ╔═╡ 88c53208-041d-11eb-3b1e-31b57ba99f05
typeof(test_status)
# ╔═╡ 847d0fc2-041d-11eb-2864-79066e223b45
md"""
👉 Convert `x` to an integer using the `Integer` function. What value does it have? What values do `I` and `R` have?
"""
# ╔═╡ f2792ff5-b0b6-4fcd-94aa-0b6ef048f6ab
Integer(test_status)
# ╔═╡ 860790fc-0403-11eb-2f2e-355f77dcc7af
md"""
#### Exercise 1.2
For each agent we want to keep track of its infection status and the number of *other* agents that it infects during the simulation. A good solution for this is to define a *new type* `Agent` to hold all of the information for one agent, as follows:
"""
# ╔═╡ ae4ac4b4-041f-11eb-14f5-1bcde35d18f2
begin
mutable struct Agent
# "susceptible", "infectious" or "recovered"
status::InfectionStatus
# the number of other agents that this agent infects
num_infected::Int64
end
Agent() = Agent(S, 0)
end
# ╔═╡ ae70625a-041f-11eb-3082-0753419d6d57
md"""
When you define a new type like this, Julia automatically defines one or more **constructors**, which are methods of a generic function with the *same name* as the type. These are used to create objects of that type.
👉 Use the `methods` function to check how many constructors are pre-defined for the `Agent` type.
"""
# ╔═╡ 60a8b708-04c8-11eb-37b1-3daec644ac90
methods(Agent)
# ╔═╡ 189cae1e-0424-11eb-2666-65bf297d8bdd
md"""
👉 Create an agent `test_agent` with status `S` and `num_infected` equal to 0.
"""
# ╔═╡ 18d308c4-0424-11eb-176d-49feec6889cf
test_agent = Agent(S, 0)
# ╔═╡ 190deebc-0424-11eb-19fe-615997093e14
md"""
👉 For convenience, define a new constructor (i.e. a new method for the function) that takes no arguments and creates an `Agent` with status `S` and number infected 0, by calling one of the default constructors that Julia creates. This new method lives *outside* (not inside) the definition of the `struct`. (It is called an **outer constructor**.)
(In Pluto, a struct definition and an outer constructor need to be combined in a single cell using a `begin end` block.)
Let's check that the new method works correctly. How many methods does the constructor have now?
"""
# ╔═╡ 82f2580a-04c8-11eb-1eea-bdb4e50eee3b
Agent()
# ╔═╡ 8631a536-0403-11eb-0379-bb2e56927727
md"""
#### Exercise 1.3
👉 Write functions `set_status!(a)` and `set_num_infected!(a)` which modify the respective fields of an `Agent`. Check that they work. [Note the bang ("`!`") at the end of the function names to signify that these functions *modify* their argument.]
"""
# ╔═╡ 98beb336-0425-11eb-3886-4f8cfd210288
function set_status!(agent::Agent, new_status::InfectionStatus)
# your code here
agent.status = new_status
end
# ╔═╡ 866299e8-0403-11eb-085d-2b93459cc141
md"""
👉 We will also need functions `is_susceptible` and `is_infected` that check if a given agent is in those respective states.
"""
# ╔═╡ 9a837b52-0425-11eb-231f-a74405ff6e23
function is_susceptible(agent::Agent)
return agent.status == S
end
# ╔═╡ a8dd5cae-0425-11eb-119c-bfcbf832d695
function is_infected(agent::Agent)
return agent.status == I
end
# ╔═╡ 8692bf42-0403-11eb-191f-b7d08895274f
md"""
#### Exercise 1.4
👉 Write a function `generate_agents(N)` that returns a vector of `N` freshly created `Agent`s. They should all be initially susceptible, except one, chosen at random (i.e. uniformly), who is infectious.
"""
# ╔═╡ 7946d83a-04a0-11eb-224b-2b315e87bc84
function generate_agents(N::Integer)
agents = [Agent() for _ = 1:N]
set_status!(agents[rand(1:N)], I)
return agents
end
# ╔═╡ 488771e2-049f-11eb-3b0a-0de260457731
generate_agents(3)
# ╔═╡ 86d98d0a-0403-11eb-215b-c58ad721a90b
md"""
We will also need types representing different infections.
Let's define an (immutable) `struct` called `InfectionRecovery` with parameters `p_infection` and `p_recovery`. We will make it a subtype of an abstract `AbstractInfection` type, because we will define more infection types later.
"""
# ╔═╡ 223933a4-042c-11eb-10d3-852229f25a35
abstract type AbstractInfection end
# ╔═╡ 1a654bdc-0421-11eb-2c38-7d35060e2565
struct InfectionRecovery <: AbstractInfection
p_infection::Any
p_recovery::Any
end
# ╔═╡ 2d3bba2a-04a8-11eb-2c40-87794b6aeeac
md"""
#### Exercise 1.5
👉 Write a function `interact!` that takes an affected `agent` of type `Agent`, an `source` of type `Agent` and an `infection` of type `InfectionRecovery`. It implements a single (one-sided) interaction between two agents:
- If the `agent` is susceptible and the `source` is infectious, then the `source` infects our `agent` with the given infection probability. If the `source` successfully infects the other agent, then its `num_infected` record must be updated.
- If the `agent` is infected then it recovers with the relevant probability.
- Otherwise, nothing happens.
$(html"<span id=interactfunction></span>")
"""
# ╔═╡ 9d0f9564-e393-401f-9dd5-affa4405a9c6
function interact!(agent::Agent, source::Agent, infection::InfectionRecovery)
if is_susceptible(agent)
if is_infected(source) && bernoulli(infection.p_infection)
set_status!(agent, I)
source.num_infected += 1
end
elseif is_infected(agent)
if bernoulli(infection.p_recovery)
set_status!(agent, R)
end
end
end
# ╔═╡ b21475c6-04ac-11eb-1366-f3b5e967402d
md"""
Play around with the test case below to test your function! Try changing the definitions of `agent`, `source` and `infection`. Since we are working with randomness, you might want to run the cell multiple times.
"""
# ╔═╡ 619c8a10-0403-11eb-2e89-8b0974fb01d0
md"""
## **Exercise 2:** _Agent-based model for an epidemic outbreak -- Monte Carlo simulation_
In this exercise we will build on Exercise 2 to write a Monte Carlo simulation of how an infection propagates in a population.
Make sure to re-use the functions that we have already written, and introduce new ones if they are helpful! Short functions make it easier to understand what the function does and build up new functionality piece by piece.
You should not use any global variables inside the functions: Each function must accept as arguments all the information it requires to carry out its task. You need to think carefully about what the information each function requires.
#### Exercise 2.1
👉 Write a function `step!` that takes a vector of `Agent`s and an `infection` of type `InfectionRecovery`. It implements a single step of the infection dynamics as follows:
- Choose two random agents: an `agent` and a `source`.
- Apply `interact!(agent, source, infection)`.
- Return `agents`.
"""
# ╔═╡ 955321de-0403-11eb-04ce-fb1670dfbb9e
md"""
👉 Write a function `sweep!`. It runs `step!` $N$ times, where $N$ is the number of agents. Thus each agent acts, on average, once per sweep; a sweep is thus the unit of time in our Monte Carlo simulation.
"""
# ╔═╡ 95771ce2-0403-11eb-3056-f1dc3a8b7ec3
md"""
👉 Write a function `simulation` that does the following:
1. Generate the $N$ agents.
2. Run `sweep!` a number $T$ of times. Calculate and store the total number of agents with each status at each step in variables `S_counts`, `I_counts` and `R_counts`.
3. Return the vectors `S_counts`, `I_counts` and `R_counts` in a **named tuple**, with keys `S`, `I` and `R`.
You've seen an example of named tuples before: the `student` variable at the top of the notebook!
_Feel free to store the counts in a different way, as long as the return type is the same._
"""
# ╔═╡ 7299d07c-e9d7-42b6-b695-ae4bbc05e0f8
function counts(agents::Vector{Agent})
S_count, I_count, R_count = 0, 0, 0
for agent in agents
if is_susceptible(agent)
S_count += 1
elseif is_infected(agent)
I_count += 1
else
R_count += 1
end
end
return (S_count, I_count, R_count)
end
# ╔═╡ 28db9d98-04ca-11eb-3606-9fb89fa62f36
@bind run_basic_sir Button("Run simulation again!")
# ╔═╡ bf6fd176-04cc-11eb-008a-2fb6ff70a9cb
md"""
#### Exercise 2.2
Alright! Every time that we run the simulation, we get slightly different results, because it is based on randomness. By running the simulation a number of times, you start to get an idea of the _mean behaviour_ of our model. This is the essence of a Monte Carlo method! You use computer-generated randomness to generate samples.
Instead of pressing the button many times, let's have the computer repeat the simulation. In the next cells, we run your simulation `num_simulations=20` times with $N=100$, $p_\text{infection} = 0.02$, $p_\text{infection} = 0.002$ and $T = 1000$.
Every single simulation returns a named tuple with the status counts, so the result of multiple simulations will be an array of those. Have a look inside the result, `simulations`, and make sure that its structure is clear.
"""
# ╔═╡ 80e6f1e0-04b1-11eb-0d4e-475f1d80c2bb
md"""
In the cell below, we plot the evolution of the number of $I$ individuals as a function of time for each of the simulations on the same plot using transparency (`alpha=0.5` inside the plot command).
"""
# ╔═╡ 95c598d4-0403-11eb-2328-0175ed564915
md"""
👉 Write a function `sir_mean_plot` that returns a plot of the means of $S$, $I$ and $R$ as a function of time on a single graph.
"""
# ╔═╡ 843fd63c-04d0-11eb-0113-c58d346179d6
function sir_mean_plot(simulations::Vector{<:NamedTuple})
# you might need T for this function, here's a trick to get it:
T = length(first(simulations).S)
ss, is, rs = zeros(T), zeros(T), zeros(T)
for sim in simulations
ss = ss .+ sim.S
is = is .+ sim.I
rs = rs .+ sim.R
end
plot(1:T, ss ./ length(simulations), label = "Susceptible")
plot!(1:T, is ./ length(simulations), label = "Infectious")
plot!(1:T, rs ./ length(simulations), label = "Recovered")
end
# ╔═╡ dfb99ace-04cf-11eb-0739-7d694c837d59
md"""
👉 Allow $p_\text{infection}$ and $p_\text{recovery}$ to be changed interactively and find parameter values for which you observe an epidemic outbreak.
"""
# ╔═╡ 1c6aa208-04d1-11eb-0b87-cf429e6ff6d0
@bind p_infection Slider(0:0.01:1, default = 0.05, show_value = true)
# ╔═╡ 82c855af-594d-4891-82be-43903ac5644b
@bind p_recovery Slider(0:0.01:1, default = 0.01, show_value = true)
# ╔═╡ 95eb9f88-0403-11eb-155b-7b2d3a07cff0
md"""
👉 Write a function `sir_mean_error_plot` that does the same as `sir_mean_plot`, which also computes the **standard deviation** $\sigma$ of $S$, $I$, $R$ at each step. Add this to the plot using **error bars**, using the option `yerr=σ` in the plot command; use transparency.
This should confirm that the distribution of $I$ at each step is pretty wide!
"""
# ╔═╡ 287ee7aa-0435-11eb-0ca3-951dbbe69404
function sir_mean_error_plot(simulations::Vector{<:NamedTuple})
# you might need T for this function, here's a trick to get it:
T = length(first(simulations).S)
ss, is, rs = zeros(T), zeros(T), zeros(T)
for sim in simulations
ss = ss .+ sim.S
is = is .+ sim.I
rs = rs .+ sim.R
end
ss, is, rs = map(x -> x ./ length(simulations), [ss, is, rs])
sσ, iσ, rσ = map(Statistics.std, [ss, is, rs])
plot(1:T, is, yerr = iσ, markerstrokecolor = :auto, label = "Infectious")
end
# ╔═╡ 9611ca24-0403-11eb-3582-b7e3bb243e62
md"""
#### Exercise 2.3
👉 Plot the probability distribution of `num_infected`. Does it have a recognisable shape? (Feel free to increase the number of agents in order to get better statistics.)
"""
# ╔═╡ 9635c944-0403-11eb-3982-4df509f6a556
md"""
#### Exercse 2.4
👉 What are three *simple* ways in which you could characterise the magnitude (size) of the epidemic outbreak? Find approximate values of these quantities for one of the runs of your simulation.
"""
# ╔═╡ 4ad11052-042c-11eb-3643-8b2b3e1269bc
md"""
1. the maximum num of infected(recovered exclued) during a peroid of time;
2. the maximum slope/gradient of infection;
3. the num_infected distribution of each agent.
"""
# ╔═╡ 61c00724-0403-11eb-228d-17c11670e5d1
md"""
## **Exercise 3:** _Reinfection_
In this exercise we will *re-use* our simulation infrastructure to study the dynamics of a different type of infection: there is no immunity, and hence no "recovery" rather, susceptible individuals may now be **re-infected**
#### Exercise 3.1
👉 Make a new infection type `Reinfection`. This has the *same* two fields as `InfectionRecovery` (`p_infection` and `p_recovery`). However, "recovery" now means "becomes susceptible again", instead of moves to the `R` class.
This new type `Reinfection` should also be a **subtype** of `AbstractInfection`. This allows us to reuse our previous functions, which are defined for the abstract supertype.
"""
# ╔═╡ 8dd97820-04a5-11eb-36c0-8f92d4b859a8
struct Reinfection <: AbstractInfection
p_infection::Any
p_recovery::Any
end
# ╔═╡ 99ef7b2a-0403-11eb-08ef-e1023cd151ae
md"""
👉 Make a *new method* for the `interact!` function that accepts the new infection type as argument, reusing as much functionality as possible from the previous version.
"""
# ╔═╡ bbb103d5-c8f9-485b-9337-40892bb60506
function interact!(agent::Agent, source::Agent, infection::Reinfection)
if is_susceptible(agent)
if is_infected(source) && bernoulli(infection.p_infection)
set_status!(agent, I)
source.num_infected += 1
end
elseif is_infected(agent)
if bernoulli(infection.p_recovery)
# becomes susceptible again
set_status!(agent, S)
end
end
end
# ╔═╡ 9c39974c-04a5-11eb-184d-317eb542452c
let
agent = Agent(S, 0)
source = Agent(I, 0)
infection = InfectionRecovery(0.9, 0.5)
interact!(agent, source, infection)
(agent = agent, source = source)
end
# ╔═╡ 2ade2694-0425-11eb-2fb2-390da43d9695
function step!(agents::Vector{Agent}, infection::AbstractInfection)
# choose two random
agent, source = rand(agents, 2)
# apply interact!
interact!(agent, source, infection)
# return agents.
return agents
end
# ╔═╡ 46133a74-04b1-11eb-0b46-0bc74e564680
function sweep!(agents::Vector{Agent}, infection::AbstractInfection)
for _ = 1:length(agents)
step!(agents, infection)
end
return agents
end
# ╔═╡ 887d27fc-04bc-11eb-0ab9-eb95ef9607f8
function simulation(N::Integer, T::Integer, infection::AbstractInfection)
agents = generate_agents(N)
S_counts, I_counts, R_counts = [], [], []
for _ = 1:T
sweep!(agents, infection)
S_count, I_count, R_count = counts(agents)
push!(S_counts, S_count)
push!(I_counts, I_count)
push!(R_counts, R_count)
end
return (S = S_counts, I = I_counts, R = R_counts)
end
# ╔═╡ b92f1cec-04ae-11eb-0072-3535d1118494
simulation(3, 20, InfectionRecovery(0.9, 0.2))
# ╔═╡ 2c62b4ae-04b3-11eb-0080-a1035a7e31a2
simulation(100, 1000, InfectionRecovery(0.005, 0.2))
# ╔═╡ c5156c72-04af-11eb-1106-b13969b036ca
let
run_basic_sir
N = 10000
T = 2500
sim = simulation(N, T, InfectionRecovery(0.02, 0.002))
result = plot(1:T, sim.S, ylim = (0, N), label = "Susceptible")
plot!(result, 1:T, sim.I, ylim = (0, N), label = "Infectious")
plot!(result, 1:T, sim.R, ylim = (0, N), label = "Recovered")
end
# ╔═╡ 38b1aa5a-04cf-11eb-11a2-930741fc9076
function repeat_simulations(N, T, infection, num_simulations)
map(1:num_simulations) do _
simulation(N, T, infection)
end
end
# ╔═╡ 80c2cd88-04b1-11eb-326e-0120a39405ea
simulations = repeat_simulations(100, 1000, InfectionRecovery(0.02, 0.002), 20)
# ╔═╡ 9cd2bb00-04b1-11eb-1d83-a703907141a7
let
p = plot()
for sim in simulations
plot!(p, 1:1000, sim.I, alpha = 0.5, label = nothing)
end
p
end
# ╔═╡ 7f635722-04d0-11eb-3209-4b603c9e843c
sir_mean_plot(simulations)
# ╔═╡ a4c9ccdc-12ca-11eb-072f-e34595520548
let
T = length(first(simulations).S)
all_S_counts = map(result -> result.S, simulations)
all_I_counts = map(result -> result.I, simulations)
all_R_counts = map(result -> result.R, simulations)
(
S = round.(sum(all_S_counts) ./ length(simulations) ./ 100, digits = 4),
I = round.(sum(all_I_counts) ./ length(simulations) ./ 100, digits = 4),
R = round.(sum(all_R_counts) ./ length(simulations) ./ 100, digits = 4),
)
end
# ╔═╡ 188a703b-6c73-47da-ad89-bd7a77a51156
let
simulations =
repeat_simulations(10000, 1000, InfectionRecovery(p_infection, p_recovery), 20)
sir_mean_plot(simulations)
end
# ╔═╡ 34f93531-ef85-42d8-9222-987a8c49cc95
let
simulations =
repeat_simulations(1000, 1000, InfectionRecovery(p_infection, p_recovery), 50)
sir_mean_error_plot(simulations)
end
# ╔═╡ 26e2978e-0435-11eb-0d61-25f552d2771e
let
N = 10000
T = 1000
agents = generate_agents(N)
infection = InfectionRecovery(p_infection, p_recovery)
for _ = 1:T
sweep!(agents, infection)
end
histogram([agent.num_infected for agent in agents])
end
# ╔═╡ 9a13b17c-0403-11eb-024f-9b37e95e211b
md"""
#### Exercise 3.2
👉 Run the simulation 20 times and plot $I$ as a function of time for each one, together with the mean over the 20 simulations (as you did in the previous exercises).
Note that you should be able to re-use the `sweep!` and `simulation` functions , since those should be sufficiently **generic** to work with the new `step!` function! (Modify them if they are not.)
"""
# ╔═╡ 1ac4b33a-0435-11eb-36f8-8f3f81ae7844
let
p = plot()
simulations = repeat_simulations(100, 1000, Reinfection(0.02, 0.002), 20)
for sim in simulations
plot!(p, 1:1000, sim.I, alpha = 0.5, label = nothing)
end
p
end
# ╔═╡ 9a377b32-0403-11eb-2799-e7e59caa6a45
md"""
👉 Run the new simulation and draw $I$ (averaged over runs) as a function of time. Is the behaviour qualitatively the same or different? Describe what you see.
✍️My answer: It keeps surging.
"""
# ╔═╡ 21c50840-0435-11eb-1307-7138ecde0691
let
simulations = repeat_simulations(100, 1000, Reinfection(0.02, 0.002), 20)
sir_mean_error_plot(simulations)
end
# ╔═╡ 4f19e872-0414-11eb-0dfd-e53d2aecc4dc
md"## Function library
Just some helper functions used in the notebook."
# ╔═╡ 48a16c42-0414-11eb-0e0c-bf52bbb0f618
hint(text) = Markdown.MD(Markdown.Admonition("hint", "Hint", [text]))
# ╔═╡ 9cf9080a-04b1-11eb-12a0-17013f2d37f5
md"""
👉 Calculate the **mean number of infectious agents** of our simulations for each time step. Add it to the plot using a heavier line (`lw=3` for "linewidth") by modifying the cell above.
Check the answer yourself: does your curve follow the average trend?
$(hint(md"This exercise requires some creative juggling with arrays, anonymous functions, `map`s, or whatever you see fit!"))
"""
# ╔═╡ 461586dc-0414-11eb-00f3-4984b57bfac5
almost(text) = Markdown.MD(Markdown.Admonition("warning", "Almost there!", [text]))
# ╔═╡ 43e6e856-0414-11eb-19ca-07358aa8b667
still_missing(text = md"Replace `missing` with your answer.") =
Markdown.MD(Markdown.Admonition("warning", "Here we go!", [text]))
# ╔═╡ 41cefa68-0414-11eb-3bad-6530360d6f68
keep_working(text = md"The answer is not quite right.") =
Markdown.MD(Markdown.Admonition("danger", "Keep working on it!", [text]))
# ╔═╡ 3f5e0af8-0414-11eb-34a7-a71e7aaf6443
yays = [
md"Fantastic!",
md"Splendid!",
md"Great!",
md"Yay ❤",
md"Great! 🎉",
md"Well done!",
md"Keep it up!",
md"Good job!",
md"Awesome!",
md"You got the right answer!",
md"Let's move on to the next section.",
]
# ╔═╡ 3d88c056-0414-11eb-0025-05d3aff1588b
correct(text = rand(yays)) = Markdown.MD(Markdown.Admonition("correct", "Got it!", [text]))
# ╔═╡ 3c0528a0-0414-11eb-2f68-a5657ab9e73d
not_defined(variable_name) = Markdown.MD(
Markdown.Admonition(
"danger",
"Oopsie!",
[
md"Make sure that you define a variable called **$(Markdown.Code(string(variable_name)))**",
],
),
)
# ╔═╡ 7c515a7a-04d5-11eb-0f36-4fcebff709d5
if !@isdefined(set_status!)
not_defined(:set_status!)
else
let
agent = Agent(I, 2)
set_status!(agent, R)
if agent.status == R
correct()
else
keep_working()
end
end
end
# ╔═╡ c4a8694a-04d4-11eb-1eef-c9e037e6b21f
if !@isdefined(is_susceptible)
not_defined(:is_susceptible)
else
let
result1 = is_susceptible(Agent(I, 2))
result2 = is_infected(Agent(I, 2))
if result1 isa Missing || result2 isa Missing
still_missing()
elseif !(result1 isa Bool) || !(result2 isa Bool)
keep_working(md"Make sure that you return either `true` or `false`.")
elseif result1 === false && result2 === true
if is_susceptible(Agent(S, 3)) && !is_infected(Agent(R, 9))
correct()
else
keep_working()
end
else
keep_working()
end
end
end
# ╔═╡ 393041ec-049f-11eb-3089-2faf378445f3
if !@isdefined(generate_agents)
not_defined(:generate_agents)
else
let
result = generate_agents(4)
if result isa Missing
still_missing()
elseif result isa Nothing
keep_working(
"The function returned `nothing`. Did you forget to return something?",
)
elseif !(result isa Vector) || !all(x -> x isa Agent, result)
keep_working(
md"Make sure that you return an array of objects of the type `Agent`.",
)
elseif length(result) != 4
almost(md"Make sure that you return `N` agents.")
elseif length(Set(result)) != 4
almost(
md"You returned the **same** agent `N` times. You need to call the `Agent` constructor `N` times, not once.",
)
else
if sum(a -> a.status == I, result) != 1
almost(md"Exactly one of the agents should be infectious.")
else
correct()
end
end
end
end
# ╔═╡ 759bc42e-04ab-11eb-0ab1-b12e008c02a9
if !@isdefined(interact!)
not_defined(:interact!)
else
let
agent = Agent(S, 9)
source = Agent(I, 0)
interact!(agent, source, InfectionRecovery(0.0, 1.0))
if source.status != I || source.num_infected != 0
keep_working(md"The `source` should not be modified if no infection occured.")
elseif agent.status != S
keep_working(md"The `agent` should get infected with the right probability.")
else
agent = Agent(S, 9)
source = Agent(S, 0)
interact!(agent, source, InfectionRecovery(1.0, 1.0))
if source.status != S || source.num_infected != 0 || agent.status != S
keep_working(
md"The `agent` should get infected with the right probability if the source is infectious.",
)
else
agent = Agent(S, 9)
source = Agent(I, 3)
interact!(agent, source, InfectionRecovery(1.0, 1.0))
if agent.status == R
almost(
md"The agent should not recover immediately after becoming infectious.",
)
elseif agent.status == S
keep_working(
md"The `agent` should recover from an infectious state with the right probability.",
)
elseif source.status != I || source.num_infected != 4
almost(
md"The `source` did not get updated correctly after infecting the `agent`.",
)
else
correct(
md"Your function treats the **susceptible** agent case correctly!",
)
end
end
end
end
end
# ╔═╡ 1491a078-04aa-11eb-0106-19a3cf1e94b0
if !@isdefined(interact!)
not_defined(:interact!)
else
let
agent = Agent(I, 9)
source = Agent(S, 0)
interact!(agent, source, InfectionRecovery(1.0, 1.0))
if source.status != S || source.num_infected != 0
keep_working(md"The `source` should not be modified if `agent` is infectious.")
elseif agent.status != R
keep_working(
md"The `agent` should recover from an infectious state with the right probability.",
)
elseif agent.num_infected != 9
keep_working(
md"`agent.num_infected` should not be modified if `agent` is infectious.",
)
else
let
agent = Agent(I, 9)
source = Agent(R, 0)
interact!(agent, source, InfectionRecovery(1.0, 0.0))
if agent.status == R
keep_working(
md"The `agent` should recover from an infectious state with the right probability.",
)
else
correct(
md"Your function treats the **infectious** agent case correctly!",
)
end
end
end
end
end
# ╔═╡ f8e05d94-04ac-11eb-26d4-6f1d2c5ed272
if !@isdefined(interact!)
not_defined(:interact!)
else
let
agent = Agent(R, 9)
source = Agent(I, 0)
interact!(agent, source, InfectionRecovery(1.0, 1.0))
if source.status != I || source.num_infected != 0
keep_working(md"The `source` should not be modified if no infection occured.")
elseif agent.status != R || agent.num_infected != 9
keep_working(
md"The `agent` should not be momdified if it is in a recoved state.",
)
else
correct(md"Your function treats the **recovered** agent case correctly!")
end
end
end
# ╔═╡ 39dffa3c-0414-11eb-0197-e72b299e9c63
bigbreak = html"<br><br><br><br><br>";
# ╔═╡ 2b26dc42-0403-11eb-205f-cd2c23d8cb03
bigbreak
# ╔═╡ 5689841e-0414-11eb-0492-63c77ddbd136
bigbreak
# ╔═╡ 00000000-0000-0000-0000-000000000001
PLUTO_PROJECT_TOML_CONTENTS = """
[deps]
Plots = "91a5bcdd-55d7-5caf-9e0b-520d859cae80"
PlutoUI = "7f904dfe-b85e-4ff6-b463-dae2292396a8"
Statistics = "10745b16-79ce-11e8-11f9-7d13ad32a3b2"
[compat]
Plots = "~1.29.1"
PlutoUI = "~0.7.48"
"""
# ╔═╡ 00000000-0000-0000-0000-000000000002
PLUTO_MANIFEST_TOML_CONTENTS = """
# This file is machine-generated - editing it directly is not advised
julia_version = "1.9.1"
manifest_format = "2.0"
project_hash = "1b11da493a18a0d6083c7422d36049f8dd4461d2"
[[deps.AbstractPlutoDingetjes]]
deps = ["Pkg"]
git-tree-sha1 = "8eaf9f1b4921132a4cff3f36a1d9ba923b14a481"
uuid = "6e696c72-6542-2067-7265-42206c756150"
version = "1.1.4"
[[deps.Adapt]]
deps = ["LinearAlgebra", "Requires"]
git-tree-sha1 = "76289dc51920fdc6e0013c872ba9551d54961c24"
uuid = "79e6a3ab-5dfb-504d-930d-738a2a938a0e"
version = "3.6.2"
weakdeps = ["StaticArrays"]
[deps.Adapt.extensions]
AdaptStaticArraysExt = "StaticArrays"
[[deps.ArgTools]]
uuid = "0dad84c5-d112-42e6-8d28-ef12dabb789f"
version = "1.1.1"
[[deps.Artifacts]]
uuid = "56f22d72-fd6d-98f1-02f0-08ddc0907c33"
[[deps.Base64]]
uuid = "2a0f44e3-6c83-55bd-87e4-b1978d98bd5f"
[[deps.Bzip2_jll]]
deps = ["Artifacts", "JLLWrappers", "Libdl", "Pkg"]
git-tree-sha1 = "19a35467a82e236ff51bc17a3a44b69ef35185a2"
uuid = "6e34b625-4abd-537c-b88f-471c36dfa7a0"
version = "1.0.8+0"
[[deps.Cairo_jll]]
deps = ["Artifacts", "Bzip2_jll", "CompilerSupportLibraries_jll", "Fontconfig_jll", "FreeType2_jll", "Glib_jll", "JLLWrappers", "LZO_jll", "Libdl", "Pixman_jll", "Pkg", "Xorg_libXext_jll", "Xorg_libXrender_jll", "Zlib_jll", "libpng_jll"]
git-tree-sha1 = "4b859a208b2397a7a623a03449e4636bdb17bcf2"
uuid = "83423d85-b0ee-5818-9007-b63ccbeb887a"
version = "1.16.1+1"
[[deps.ColorSchemes]]
deps = ["ColorTypes", "ColorVectorSpace", "Colors", "FixedPointNumbers", "PrecompileTools", "Random"]
git-tree-sha1 = "be6ab11021cd29f0344d5c4357b163af05a48cba"
uuid = "35d6a980-a343-548e-a6ea-1d62b119f2f4"
version = "3.21.0"
[[deps.ColorTypes]]
deps = ["FixedPointNumbers", "Random"]
git-tree-sha1 = "eb7f0f8307f71fac7c606984ea5fb2817275d6e4"
uuid = "3da002f7-5984-5a60-b8a6-cbb66c0b333f"
version = "0.11.4"
[[deps.ColorVectorSpace]]
deps = ["ColorTypes", "FixedPointNumbers", "LinearAlgebra", "SpecialFunctions", "Statistics", "TensorCore"]
git-tree-sha1 = "600cc5508d66b78aae350f7accdb58763ac18589"
uuid = "c3611d14-8923-5661-9e6a-0046d554d3a4"
version = "0.9.10"
[[deps.Colors]]
deps = ["ColorTypes", "FixedPointNumbers", "Reexport"]
git-tree-sha1 = "fc08e5930ee9a4e03f84bfb5211cb54e7769758a"
uuid = "5ae59095-9a9b-59fe-a467-6f913c188581"
version = "0.12.10"
[[deps.Compat]]
deps = ["UUIDs"]
git-tree-sha1 = "7a60c856b9fa189eb34f5f8a6f6b5529b7942957"
uuid = "34da2185-b29b-5c13-b0c7-acf172513d20"
version = "4.6.1"
weakdeps = ["Dates", "LinearAlgebra"]
[deps.Compat.extensions]
CompatLinearAlgebraExt = "LinearAlgebra"
[[deps.CompilerSupportLibraries_jll]]
deps = ["Artifacts", "Libdl"]
uuid = "e66e0078-7015-5450-92f7-15fbd957f2ae"
version = "1.0.2+0"
[[deps.Contour]]
deps = ["StaticArrays"]
git-tree-sha1 = "9f02045d934dc030edad45944ea80dbd1f0ebea7"
uuid = "d38c429a-6771-53c6-b99e-75d170b6e991"
version = "0.5.7"
[[deps.DataAPI]]
git-tree-sha1 = "8da84edb865b0b5b0100c0666a9bc9a0b71c553c"
uuid = "9a962f9c-6df0-11e9-0e5d-c546b8b5ee8a"
version = "1.15.0"
[[deps.DataStructures]]
deps = ["Compat", "InteractiveUtils", "OrderedCollections"]
git-tree-sha1 = "d1fff3a548102f48987a52a2e0d114fa97d730f0"
uuid = "864edb3b-99cc-5e75-8d2d-829cb0a9cfe8"
version = "0.18.13"
[[deps.DataValueInterfaces]]
git-tree-sha1 = "bfc1187b79289637fa0ef6d4436ebdfe6905cbd6"
uuid = "e2d170a0-9d28-54be-80f0-106bbe20a464"
version = "1.0.0"
[[deps.Dates]]
deps = ["Printf"]
uuid = "ade2ca70-3891-5945-98fb-dc099432e06a"
[[deps.DelimitedFiles]]
deps = ["Mmap"]
git-tree-sha1 = "9e2f36d3c96a820c678f2f1f1782582fcf685bae"
uuid = "8bb1440f-4735-579b-a4ab-409b98df4dab"
version = "1.9.1"
[[deps.DocStringExtensions]]
deps = ["LibGit2"]
git-tree-sha1 = "2fb1e02f2b635d0845df5d7c167fec4dd739b00d"
uuid = "ffbed154-4ef7-542d-bbb7-c09d3a79fcae"
version = "0.9.3"