fitness_single_locus: calculate single locus fitness for a flexible number of...

In ian-hastings/rotations: Simulating the Evolution of Insecticide Resistance under Rotations

Description

can be used in 2 ways 1) pass a single value and n_insecticides to give all insecticides the same value 2) pass vectors - new way for rotations

Usage

fitness_single_locus(
  n_insecticides = NULL,
  eff = c(0.5, 0.7, 0.9),
  dom_sel = c(0.5, 0.5, 0.5),
  dom_cos = c(0.5, 0.5, 0.5),
  rr = c(0.5, 0.5, 0.5),
  cost = c(0, 0, 0),
  fitSS = c(1, 1, 1),
  a_fitloc = NULL,
  plot = FALSE
)

Arguments

n_insecticides	number of insecticides (not needed if vectors or arrays are passed)
eff	effectiveness, for all insecticides or individually
dom_sel	dominance of selection, for all insecticides or individually
dom_cos	dominance of cost, for all insecticides or individually
rr	resistance restoration, for all insecticides or individually
cost	fitness cost of RR in no insecticide, for all insecticides or individually
fitSS	fitness of SS if no insecticide, for all insecticides or individually
a_fitloc	array of single locus fitnesses to fill
plot	whether to plot fitness

Value

fitness values

Examples

#defaults
fitness_single_locus()
#2 different insecticides
fitness_single_locus(eff=c(0.5,1), dom_sel=c(0.5,0.5), dom_cos=c(0.5,0.5), rr=c(0.5,0.5), cost=c(0,0.1), fitSS=c(1,1))
#4 same insecticides
fitness_single_locus(n_insecticides=4, eff=0.5, dom_sel=0.5, dom_cos=0.5, rr=0.5, cost=0, fitSS=1)
#4 pairs of the same insecticides
fitness_single_locus(n_insecticides=8, eff=c(0.5,1), dom_sel=c(0.5,0.5), dom_cos=c(0.5,0.5), rr=c(0.5,0.5), cost=c(0,0.1), fitSS=c(1,1))

ian-hastings/rotations documentation built on Dec. 14, 2020, 11:42 p.m.