View source: R/xml_interventions_define.R
defineVectorControl | R Documentation |
Adds vector control intervention parameterisation to baseList
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
)
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 |
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"
)
)
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.