compcol {primer} | R Documentation |
This model implements a Levins-type metapopulation model for two species, after Hastings (1980). For use with ode
in the deSolve
package.
compcol(t, y, params)
t |
Argument for time |
y |
A vector for population 1 and 2 |
params |
Vector or list of parameters |
Returns a list of length one, for use with ode
in the deSolve
package.
Component 1 |
vector of the state variables, y. |
Hank Stevens <HStevens@muohio.edu>
A. Hastings. Disturbance, coexistence, history, and competition for space. Theoretical Population Biology, 18:363–373, 1980.
Stevens. M.H.H. 2009. A Primer of Ecology with R. Use R! Series. Springer.
library(deSolve) pars <- c(c1 = .3, c2 = 1, m1 = .1, m2 = .1) pops <- c(.1,.1) out <- ode(y=pops, t=0:20, fun=compcol, parms = pars) matplot(out[,1], out[,-1], type='l')