Susceptible-Exposed-Infected-Recovered-Deceased model (SEIRD)

## 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.

## Value

The

`ModelSEIRD`

function returns a model of class epiworld_model.

The `plot`

function returns a plot of the SEIRD model of class
epiworld_model.

## 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.

## 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)
#> _________________________________________________________________________
#> Running the model...
#> ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| done.
#> done.
model_seird
#> ________________________________________________________________________________
#> Susceptible-Exposed-Infected-Removed-Deceased (SEIRD)
#> It features 100000 agents, 1 virus(es), and 0 tool(s).
#> The model has 5 states.
#> The final distribution is: 1961 Susceptible, 388 Exposed, 1358 Infected, 88223 Removed, and 8070 Deceased.
plot(model_seird, main = "SEIRD Model")
```