powered by
This model implements a Levins-type metapopulation model for two species, after Hastings (1980). For use with ode in the deSolve package.
ode
deSolve
compcol(t, y, params)
Argument for time
A vector for population 1 and 2
Vector or list of parameters
Returns a list of length one, for use with ode in the deSolve package.
vector of the state variables, y.
Hastings, A. (1980) Disturbance, coexistence, history, and competition for space. Theoretical Population Biology, 18, 363--373.
Stevens. M.H.H. (2009) A Primer of Ecology with R. Use R! Series. Springer.
levins, compcolM, succniche
levins
compcolM
succniche
# NOT RUN { 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') # }
Run the code above in your browser using DataLab