| ModelSEIRD {epiworldR} | R Documentation |
Susceptible-Exposed-Infected-Recovered-Deceased model (SEIRD)
Description
Susceptible-Exposed-Infected-Recovered-Deceased model (SEIRD)
Usage
ModelSEIRD(
name,
prevalence,
transmission_rate,
incubation_days,
recovery_rate,
death_rate
)
## S3 method for class 'epiworld_seird'
plot(x, main = get_name(x), ...)
Arguments
name |
String. Name of the virus. |
prevalence |
Double. Initial proportion of individuals with the virus. |
transmission_rate |
Numeric scalar between 0 and 1. Virus's rate of infection. |
incubation_days |
Numeric scalar greater than 0. Average number of incubation days. |
recovery_rate |
Numeric scalar between 0 and 1. Rate of recovery_rate from virus. |
death_rate |
Numeric scalar between 0 and 1. Rate of death from virus. |
x |
Object of class SEIRD. |
main |
Title of the plot |
... |
Currently ignore. |
Details
The initial_states function allows the user to set the initial state of the model. The user must provide a vector of proportions indicating the following values: (1) Proportion of exposed agents who are infected, (2) proportion of non-infected agents already removed, and (3) proportion of non-ifected agents already deceased.
Value
The
ModelSEIRDfunction returns a model of class epiworld_model.
The plot function returns a plot of the SEIRD model of class
epiworld_model.
See Also
epiworld-methods
Other Models:
ModelDiffNet(),
ModelSEIR(),
ModelSEIRCONN(),
ModelSEIRDCONN(),
ModelSIR(),
ModelSIRCONN(),
ModelSIRD(),
ModelSIRDCONN(),
ModelSIRLogit(),
ModelSIS(),
ModelSISD(),
ModelSURV(),
epiworld-data
Examples
model_seird <- ModelSEIRD(name = "COVID-19", prevalence = 0.01,
transmission_rate = 0.9, recovery_rate = 0.1, incubation_days = 4,
death_rate = 0.01)
# Adding a small world population
agents_smallworld(
model_seird,
n = 100000,
k = 5,
d = FALSE,
p = .01
)
# Running and printing
run(model_seird, ndays = 100, seed = 1912)
model_seird
plot(model_seird, main = "SEIRD Model")