Update log reduction for specific path

Update the log reduction value for specific barrier according to path and population simulated

Usage

update_logreduction_path(config, matrixID, popID, barrierID)

Arguments

config

list configuration simulated

matrixID

numeric, ID of the matrix simulated

popID

numeric, ID of the population simulated

barrierID

numeric, ID of the barrier simulated

Value

config_updated

Examples

scenario_example <- create_scenario(
  system.file("input_1culture_2pop.xlsx", package = "ambre")
)

scenario_example$config <- purrr::pmap(
  list(
    config = scenario_example$config,
    barrierID = scenario_example$SupplementaryProcessID,
    matrixID = scenario_example$MatrixID,
    popID = scenario_example$PopulationID
  ),
  function(config, barrierID, matrixID, popID) {

    if (barrierID %in% c(9,13,14,15,16,17,18,24,26,27,28)) {

      update_logreduction_path(
        config = config,
        matrixID = matrixID,
        barrierID = barrierID,
        popID = popID
      )

    } else {
      config
    }
  }
)