ModelSEIRCONN function

Susceptible Exposed Infected Removed model (SEIR connected)

The SEIR connected model implements a model where all agents are connected. This is equivalent to a compartmental model (wiki).

ModelSEIRCONN(
  name,
  n,
  prevalence,
  contact_rate,
  transmission_rate,
  incubation_days,
  recovery_rate
)

## S3 method for class 'epiworld_seirconn'
plot(x, main = get_name(x), ...)

Arguments

• name: String. Name of the virus.
• n: Number of individuals in the population.
• prevalence: Initial proportion of individuals with the virus.
• contact_rate: Numeric scalar. Average number of contacts per step.
• transmission_rate: Numeric scalar between 0 and 1. Probability of transmission.
• incubation_days: Numeric scalar greater than 0. Average number of incubation days.
• recovery_rate: Numeric scalar between 0 and 1. Probability of recovery_rate.
• x: Object of class SEIRCONN.
• main: Title of the plot.
• ...: Currently ignore.

Returns

• The ModelSEIRCONNfunction returns a model of class epiworld_model .

The plot function returns a plot of the SEIRCONN model of class epiworld_model .

Examples

# An example with COVID-19
model_seirconn <- ModelSEIRCONN(
  name                = "COVID-19",
  prevalence          = 0.01,
  n                   = 10000,
  contact_rate        = 2,
  incubation_days     = 7,
  transmission_rate   = 0.5,
  recovery_rate       = 0.3
)

# Running and printing
run(model_seirconn, ndays = 100, seed = 1912)
model_seirconn

plot(model_seirconn)

# Adding the flu
flu <- virus("Flu", .9, 1 / 7, prevalence = 0.001, as_proportion = TRUE)
add_virus(model_seirconn, flu)

#' # Running and printing
run(model_seirconn, ndays = 100, seed = 1912)
model_seirconn

plot(model_seirconn)

See Also

epiworld-methods

Other Models: ModelDiffNet(), ModelSEIR(), ModelSEIRD(), ModelSEIRDCONN(), ModelSEIRMixing(), ModelSIR(), ModelSIRCONN(), ModelSIRD(), ModelSIRDCONN(), ModelSIRLogit(), ModelSIRMixing(), ModelSIS(), ModelSISD(), ModelSURV(), epiworld-data