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

Slots

name: The name of the crop
heal_time: Half-time in days for plant recovery from endosymbiont infection
sowing_date: Date crop is sown in YYYY-MM-DD format
emergence_date: Date crop emerges in YYYY-MM-DD format
harvest_date: Date crop is harvested in YYYY-MM-DD format
carrying_capacity: Function defining proportion of pest carrying capacity based on days after emerging
density: Crop density (m2)

Examples

canola <-
new("crop",
name = "Canola",
heal_time = 2,
sowing_date = "2022-04-05",
emergence_date = "2022-04-10",
harvest_date = "2022-11-01",
carrying_capacity = EndoSim:::fit_sigmoid(1, 0.1, 80),
density = 35)

canola
#> Canola  crop sown on  2022-04-05 
#>  sown at a density of  35  plants per m2
#>  emerging on  2022-04-10  and harvested on  2022-11-01