R/MBITES-BRO-HostEncounter.R

In smitdave/MASH: MASH (Modular Analysis and Simulation for Human Health)

#################################################################
#
#   MASH
#   R6-ified
#   MBITES-BRO (Blood Feeding, Resting, Oviposition)
#   Host Encounter
#   David Smith, Hector Sanchez, Sean Wu
#   July 30, 2017
#
#################################################################

#################################################################
#   Human Host Encounter
#################################################################

#' MBITES-BRO: Human Host Encounter for \code{\link{MicroMosquitoFemale}}
#'
#' After calling \code{\link{mbitesGeneric_chooseHost}}, the mosquito encounters the human host and attempts to feed.
#'  * This method is bound to \code{MicroMosquitoFemale$humanEncounter()}.
#' @md
mbitesBRO_humanEncounter <- function(){
  if(runif(1) < 1-private$FemalePopPointer$get_MBITES_PAR("surviveH")){ # does not survive to probe
    private$stateNew = "D"
  } else { # survives to probe

    if(runif(1) < private$FemalePopPointer$get_MBITES_PAR("probeH")){ # undeterred
      self$probing() # PATHOGEN-XX-Methods.R
      if(runif(1) < 1-private$FemalePopPointer$get_MBITES_PAR("surviveprobeH")){ # does not survive probing
        private$stateNew = "D"
      } else { # survives probing

        if(runif(1) < private$FemalePopPointer$get_MBITES_PAR("feedH")){ # successfully begins feeding
          self$BloodMeal() # MBITES-BRO-Energetics.R
          self$feeding() # PATHOGEN-XX-Methods.R
          private$history$historyFeed(privateEnv = private) # MOSQUITO-History.hpp
          private$stateNew = "R"
        }

      }

    }

  }

}


#################################################################
#   Non-human Host Encounter
#################################################################

#' MBITES-BRO: Non-Human Host Encounter for \code{\link{MicroMosquitoFemale}}
#'
#' After calling \code{\link{mbitesGeneric_chooseHost}}, the mosquito encounters the non-human host and attempts to feed.
#'  * This method is bound to \code{MicroMosquitoFemale$zooEncounter()}.
#' @md
mbitesBRO_zooEncounter <- function(){

  if(runif(1) < 1-private$FemalePopPointer$get_MBITES_PAR("surviveZ")){ # does not survive to feed
    private$stateNew = "D"
  } else { # survives to feed

    if(runif(1) < private$FemalePopPointer$get_MBITES_PAR("feedZ")){ # successfully begins feeding
      self$BloodMeal() # MBITES-BRO-Energetics.R
      private$history$historyFeed(privateEnv = private) # MOSQUITO-History.hpp
      private$stateNew = "R"
    }

  }

}


#################################################################
#   Probing & Infection
#################################################################

# Due to the different design of the R6/C++ OOP version of MASH-MICRO, all
# host probing and infection functions are moved to their respective PATHOGEN
# method files PATHOGEN-XX-Methods.R

# MicroMosquitoFemale$ProbeHost() will be defined generically based on module chosen.