% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/epi_quantities.R
\name{c_effective}
\alias{c_effective}
\title{Effective infectiousness duration of the SEAIR chain}
\usage{
c_effective(params)
}
\arguments{
\item{params}{A \code{"seair_params"} object.}
}
\value{
A positive scalar.
}
\description{
Computes the scalar
\deqn{c \;=\; \frac{\alpha}{\kappa + \gamma_A}
      \;+\; \frac{\delta\,\kappa}{(\kappa + \gamma_A)\,\gamma_I},}
the integrated contribution of a unit of newly infected mass to
the force of infection, collapsing the \eqn{E \to A \to I} stage
chain into a single number.  The latency rate \eqn{\sigma} does
not appear in \eqn{c}.
}
\examples{
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)
c_effective(pars)

}
