The hardware and bandwidth for this mirror is donated by dogado GmbH, the Webhosting and Full Service-Cloud Provider. Check out our Wordpress Tutorial.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]dogado.de.

seairmobility

Mobility-Based SEAIR Epidemic Models

seairmobility provides tools for simulating, analysing, and fitting mobility-based SEAIR (Susceptible–Exposed–Asymptomatic–Infectious– Recovered) compartmental epidemic models with heterogeneous individual mobility.

Each individual in the population carries a fixed mobility trait m ∈ (0, 1) that scales both susceptibility and infectiousness via a rank-one kernel. The infectious period is split into an asymptomatic stage with relative infectiousness α and a symptomatic stage with mobility-reduction factor δ.

The package extends the mobility-based SIR framework of Jiang, Chu, and Li (2025, SIAM J. Appl. Math. 85(5), 2355–2375, doi:10.1137/24M1691557).

Features

Minimal example

library(seairmobility)

pars <- seair_params(beta = 1.5, sigma = 0.3, kappa = 0.2,
                     gamma_A = 0.1, gamma_I = 0.13,
                     alpha = 0.5, delta = 0.3)

m    <- seq(0, 1, length.out = 101)
f    <- dbeta(m, 2, 2)
init <- seair_init(m, f, I_seed = 1e-4)

sol  <- seair_solve(init, pars, times = seq(0, 80, by = 1))
plot_seair(sol, which = c("S", "I", "R"))

R0_seair(pars, f, m_grid = m)
final_size(pars, f, m_grid = m)

License

MIT

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.