This R script uses the SEIR compartmental model to generate an epidemiological analysis of COVID-19.
You must have the SimInf R package installed.
You may generate a default model by calling the runSEIR() function with zero arguments:
source("seir.R", chdir = TRUE)
model <- runSEIR()
If you would like a visual representation of the model, you may simply plot it. The trajectory(model) and prevalence(model, expression) functions may also be of analytical use; see the SimInf documentation for more information on those functions.
I made this out of boredom, and also to submit into a research contest run by Creighton University's Center for Undergraduate Research and Scholarship. Accompanying it is a video I created to help others better understand the impact that people can have on the spread of COVID-19. The video is available here.