R/vector_control-control.R

In dd-harp/MicroMoB: Discrete Time Systems for Robust Analytics for Malaria Policy (RAMP), and Transmission Dynamics and Control of Mosquito-Borne Pathogens Transmission

# specialized methods for the control model of vector control

#' @title Distribute vector control, the null model
#' @description Implements [VectorControl] for the control model of vector control (do nothing)
#' @inheritParams VectorControl
#' @return a named [list]
#' @export
VectorControl.control <- function(t, y, pars) {
  pars = DistributeBedNets(t, pars)
  pars = OwnBedNet(t, y, pars)
  pars = SprayHouses(t, pars)
  pars = AreaSpray(t, pars)
  pars = SugarBaits(t, pars)
  pars = TreatHabitats(t, pars)
  return(pars)
}

#' @title Vector control durability and effects
#' @description Implements [VectorControlEffects] for the control model of vector control (do nothing)
#' @inheritParams VectorControlEffects
#' @return a named [list]
#' @export
VectorControlEffects.control <- function(t, y, pars) {
  for(s in 1:pars$nVectors){
    pars = BedNetEffects(t, pars,s)
  }
  pars = AreaSprayEffects(t, pars)
  pars = IRS_Effects(t, pars)
  pars = SugarBaitEffects(t, pars)
  pars = LSM_Effects(t, pars)
  return(pars)
}

#' @title Distribute vector control, the null model
#' @description Implements [VectorControlEffectSizes] for the control model of vector control (do nothing)
#' @inheritParams VectorControlEffectSizes
#' @return a named [list]
#' @export
VectorControlEffectSizes.control <- function(t, y, pars) {
  pars = AreaSprayEffectSizes(t, pars)
  pars = IRS_EffectSizes(t, pars)
  pars = SugarBaitEffectSizes(t, pars)
  pars = LSM_EffectSizes(t, pars)
  for(s in 1:pars$nVectors){
    pars = BedNetEffectSizes(t, pars, s)
  }
  return(pars)
}

#' @title Make parameters for the control model of vector control (do nothing)
#' @param pars a [list]
#' @return none
#' @export
setup_vc_control <- function(pars) {
  class(pars$VECTOR_CONTROL) <- 'control'
  pars <- setup_itn_null(pars)
  pars <- setup_area_spray_null(pars)
  pars <- setup_irs_null(pars)
  pars <- setup_sugar_baits_null(pars)
  pars <- setup_lsm_null(pars)
  return(pars)
}