BASE
There's an assumption in the last model (Metapopulations and propagule rain - Tutorial in EcoVirtual) that we can get rid off: the assumption that the propagule rain is constant. Instead, we can make the colonization rate a function of the percentage of occupied patches. In a simple formulation of this model, the propagule source is just from within the system (closed system) and the probability of colonization increases linearly with the proportion of occupied patches.
This way, our model does not have a constant colonization rate $p_i$, but a probability of colonization that depends on the number of occupied patches:
$$p_i = if$$
here $i$ is a constant that indicates how much the colonization probability increases with every new occupied patch. This way, the more occupied patches we have, the greater is the probability that new patches will be occupied. Substituting this new formula for $p_i$ in our old equation, we have:
$$\frac{df}{dt}=if(1-f)- p_e f $$
The fraction of the occupied patches in equilibrium(F) changes to:
$$ F=1-\frac{p_e}{i} $$
Let's see this first-hand by simulating this situation. As in the last exercise, we have created an R function that runs the simulation for us. As before, this function simply draws random colonization and extinction events for every patch at every time step, following the model's rules. It then shows the graph and an occupancy matrix for every time interval.
The parameters are:
option | parameter | definition |
---|---|---|
data set | R object | where the results are stored |
Maximum time | $tmax$ | Number of model iterations |
columns | $cl$ | number of habitat columns in the landscape |
rows | $rw$ | number of habitat rows in the landscape |
initial occupance | $f0$ | initial number of occupied patches |
colonization coef. | $ci$ | colonization coefficient |
prob. extinction | $pe$ | extinction probability |
Now you can simulate the model with the values you chose. For example,
tmax = 100 ncol = 10 nrow = 10 f0 = 0.1 ci = 1 pe = 0.5
Play around with the model for a while by changing the parameters and try to answer the following questions:
tmax = 100 cl = 10 rw = 10 f0 = 0.1 ci = 0.5 pe = 0.5