Adds vector control intervention parameterisation to baseList

Usage

defineVectorControl(
  baseList,
  vectorInterventionParameters,
  append = TRUE,
  name = NULL,
  verbatim = FALSE,
  hist = FALSE,
  resistance = 0.1
)

define_vector_control(
  baseList,
  vectorInterventionParameters,
  append = TRUE,
  name = NULL,
  verbatim = FALSE,
  hist = FALSE,
  resistance = 0.1
)

Arguments

baseList: List with experiment data.
vectorInterventionParameters: Vector control intervention parameterization list depending on three parameters (deterrency, preprandrial, postprandial) and decay functions:
append: If TRUE, then append to existing baseList, otherwise overwrites
name: Name tag list
verbatim: If TRUE, then show messages
hist: If TRUE, then decay is assumed to be step function set to 1 for a year and then to zero for the remainder
resistance: Scaling function of insecticide resistance TODO

Examples

vectorInterventionParameters <- list(
  "LLIN" = list(
    deterrency = list(
      decay = list(
        L = "0.7",
        "function" = "weibull"
      ),
      anophelesParams = list(
        "Anopheles gambiae" = list(
          propActive = 1,
          value = "0.5"
        ),
        "Anopheles funestus" = list(
          propActive = 1,
          value = "0.3"
        )
      )
    ),
    preprandialKillingEffect = list(
      decay = list(
        L = "0.4",
        "function" = "weibull"
      ),
      anophelesParams = list(
        "Anopheles gambiae" = list(
          propActive = 1,
          value = "0.6"
        ),
        "Anopheles funestus" = list(
          propActive = 1,
          value = "0.67"
        )
      )
    ),
    postprandialKillingEffect = list(
      decay = list(
        L = "0.45",
        "function" = "weibull"
      ),
      anophelesParams = list(
        "Anopheles gambiae" = list(
          propActive = 1,
          value = "0.3"
        ),
        "Anopheles funestus" = list(
          propActive = 1,
          value = "0.2"
        )
      )
    )
  )
)