An S4 class to store a endosymbiont's life history for the endosymbiont model

Slots

name: The name of the endosymbiont
fun_fitness: Function describing temperature-dependent relative fitness cost of R+ phenotype (0-1)
fun_trans_eff: Function describing temperature-dependent efficiency of endosymbiont transmission to plants
fun_susc: Function describing temperature-dependent susceptibility of R- pests to infection from plants
fun_vert_trans: Function describing temperature-dependent vertical transmission efficiency
introduction_date: Date R+ individuals are introduced in YYYY-MM-DD format
introduction_n: Number of R+ adult individuals introduced (assumed to all be alates)

Examples

Rickettsiella <-
  new(
    "endosym",
    name = "Rickettsiella",
    fun_fitness = EndoSim:::fit_null(0.5),
    fun_trans_eff = EndoSim:::fit_custom(seq(0, 36, 4),
      c(0, 0.6, 0.7, 0.75, 0.8, 0.8, 0.75, 0.6, 0.3, 0),
      k = 4),
    fun_susc = EndoSim:::fit_custom(seq(0, 40, 4),
      c(0, 0.15, 0.3, 0.45, 0.6, 0.75, 0.75, 0.6, 0.3, 0, 0),
      k = 7),
    fun_vert_trans = EndoSim:::fit_null(1),
    introduction_date = "2024-04-17",
    introduction_n = 1000
    )

Rickettsiella
#> Endosymbiont of the species  Rickettsiella 
#>  1000  infected individuals introduced on  2024-04-17