In wetlands, grasses and unpalatable plant species like Iris coexist. Iris grows slower but is competitively superior, with a logistic population growth only dependent on its own density. In contrast, the growth rates of the competitively inferior grasses are logistically determined by the combined biomass of grasses + iris.
Herbivores only consume grasses, but their consumption rate slows down when Iris is present. This is because the herbivores spend more energy to pick the grasses growing between the Iris plants.
Your task is to make a model that describes the interactions between grasses, iris and herbivores.
The following assumptions are made:
Use the following starting values (all in $g~dry~biomass~m^{-2}$):
state <- c(GRASS = 50, IRIS = 2, HERB = 0.2) # g/m2
The following parameter settings are typical for a temperate grassland:
parms <- c( ktot = 200, # [g/m2] carrying capacity of grass and unpalatable Iris assEff = 0.35, # [-] efficiency at which cattle incorporate biomass into body mass ks = 50, # [g/m2] half-saturation constant for functional response of grazing on grass rGraz = 0.17, # [/d] grazing rate constant of herbivores rGrowG = 0.05, # [/d] growth rate constant grass rGrowI = 0.04, # [/d] growth rate constant Iris rResp = 0.018, # [/d] basal metabolic rate constant inhibct = 0 # [/(g/m2)] strength of inhibition by Iris )
One final elaboration is that the herbivores can leave the area, whereas nematodes cannot. This emigration is a second-order process with respect to the herbivore density characterized by the rate constant $0.001~(g/m^2)^{-1}d^{-1}$.
Implement this model in R. You can start with the R-markdown template model file RTM_0D.Rmd.\footnote{You can obtain this file from Rstudio: File $\rightarrow$ new File $\rightarrow$ Rmarkdown $\rightarrow$ from template $\rightarrow$ RTM_0D. Save this file under a different name, and do not forget to change the heading of this file.}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.