R/init_dqc.R

In HopkinsIDD/tti: Test-trace-isolate Recursive Equations

#' Create a named vector to use as a Detected-Quarantine-Community vector input
#'
#' Creates a named vector to use as the `dqc` or `init` parameter in tti
#' functions.
#'
#' @param Ds Proportion of population that are symptomatic, detected and
#'   isolated
#' @param Da Proportion of population that are asymptomatic, detected and
#'   isolated
#' @param Qcds Proportion of population that are infected community contacts
#'   of symptomatic, isolated infections and are quarantined
#' @param Qhds Proportion of population that are infected household contacts
#'   of symptomatic, isolated infections and are quarantined
#' @param Qcda Proportion of population that are infected community contacts
#'   of asymptomatic, isolated infections and are quarantined
#' @param Qhda Proportion of population that are infected household contacts
#'   of symptomatic, isolated infections and are quarantined
#' @param Qq Proportion of population that were infected by quarantined
#'   contacts and are quarantined
#' @param Cs Proportion of population that are symptomatic and undetected
#'   in the community
#' @param Ca Proportion of population that are asymptomatic and undetected
#'   in the community
#'
#' @return Named vector.
#' @export

init_dqc <- function(Ds = 0, Da = 0, Qcds = 0, Qhds = 0, Qcda = 0, Qhda = 0,
                     Qq = 0, Cs = 0.8, Ca = 0.2) {
  c(
    Ds = Ds, Da = Da, Qcds = Qcds, Qhds = Qhds, Qcda = Qcda, Qhda = Qhda,
    Qq = Qq, Cs = Cs, Ca = Ca
  )
}