wos_diagram: plot idealised diagram to illustrate 'windows of selection'

Description Usage Arguments Value Examples

View source: R/wos_diagram.r

Description

mortality over time or declining concentration for RR,SR,SS

Usage

1
2
3
4
5
6
wos_diagram(conc_n = 100, conc_rr_mort0 = 0.6, conc_ss_mort0 = 0.1,
  mort_slope = 3, sr = TRUE, win_dom_strt = 0.5, rr_cost = 0,
  dom_cost = 0, exposure = 0.5, max_gen = 1000, startfreq = 0.001,
  title = "", addwindow = TRUE, addshading = TRUE,
  addlabels = TRUE, legendpos = "bottom", plot = TRUE, sim = FALSE,
  adv = FALSE, logadv = TRUE, lab_dom = 0)

Arguments

conc_n

number of x intervals default 50, will influence smoothness of lines, converted to 0-1

conc_rr_mort0

concentration killing none of rr

conc_ss_mort0

concentration killing none of ss

mort_slope

= 3 slope of mortality curves

sr

whether to include heterozygotes

win_dom_strt

dominance of resistance 0-1 determines position of sr between rr & ss but it's not really dominance

rr_cost

cost of resistance to rr (simply added to rr mort)

dom_cost

dominance of cost

exposure

proportion of popn exposed to insecticide only used in the simulations

max_gen

maximum generations to use in the simulations

startfreq

starting frequency to use in the simulations

title

title for ggplot

addwindow

whether to add dotted lines for opening and shutting of window

addshading

whether to shade window

addlabels

whether to add labels

legendpos

where to add legend

plot

whether to plot

sim

whether to run simulation across the window of selection

adv

whether to calculate and output selective advantage

logadv

whether to use log scale in selective advantage plots

lab_dom

whether to add labels of dominance values, 0 for none, 1 for all, 2 every other

Value

ggplot object

Examples

1
2
3
wos_diagram(mort_slope=3, win_dom_strt=0.9)
dfsim <- wos_diagram(sim=TRUE, conc_n=10, rr_cost=0) #conc_n=10 num x axis points, makes faster
wos_diagram(adv=TRUE,win_dom_strt=0.1)

AndySouth/wos documentation built on Nov. 15, 2019, 10:05 a.m.