Lesson Video

🚗 Video too fast or too slow? Click the gear icon ⚙️ at the bottom-right to change the speed!

Click here to view and download this video from Vimeo.


Lesson Code & Data

Please download the R Markdown script and data file linked below to code along with the instructor.

You need to click the download button on the top right menu.


Lesson Notes


👋 Before you go, leave an anonymous rating & feedback

Average rating 5 / 5. Vote count: 4

No votes so far! Be the first to rate this post.

Please share any positive or negative feedback you may have.

Feedback is completely anonymous

4 Comments
Newest
Oldest Most Voted
Inline Feedbacks
View all comments
Marcel Junior

got this ODE option, why don’t we have the N factored in ours

seir_model <- function(time, state, parameters) {
  with(as.list(c(state, parameters)), {
    N <- S + E + I + R
    
    dS <- -beta * S * I / N
    dE <- beta * S * I / N - sigma * E
    dI <- sigma * E - gamma * I
    dR <- gamma * I
    
    list(c(dS, dE, dI, dR))
  })
}
Mackshon

Wow, this makes modelling seem less intimidating. I have a question: Is it always necessary to plot all 3 graphs in the SIR model or just the “Infected” curve would be enough?

Mackshon

Thanks

4
0
Questions or comments?x