Determine the number of compartments in a model

Determine the number of compartments in a model

Usage

n_compartments(model)

# S4 method for class 'SimInf_model'
n_compartments(model)

Arguments

model

the model object to extract the number of compartments from.

Value

the number of compartments in the model.

Examples

## Create an 'SIR' model with 100 nodes, with 99 susceptible,
## 1 infected and 0 recovered in each node.
u0 <- data.frame(S = rep(99, 100), I = rep(1, 100), R = rep(0, 100))
model <- SIR(u0 = u0, tspan = 1:10, beta = 0.16, gamma = 0.077)

## Display the number of compartments in the model.
n_compartments(model)
#> [1] 3