lande {primer}

A Metapopulation Model with Habitat Destruction

Description

A function for the metaapopulation dynamics, for use with ode in the deSolve package.

Usage

lande(t, y, parms)

Arguments

t

Argument for time

y

A scalar for the population variable

parms

Vector or list of parameters

Value

Returns a list of length one, for use with ode in the deSolve package.

Component 1

vector of the state variable (a scalar for the proportion of sites occupied).

Author(s)

Hank Stevens <[e-mail]>

References

P. Kareiva and Wennergren, U. (1995) Connecting landscape patterns to ecosystem and population processes. Nature, 373, 299–302.

Lande, R. (1987) Extinction thresholds in demographic models of territorial populations. The American Naturalist, 130, 624–635.

Stevens, M.H.H. (2009) A Primer of Ecology with R. Use R! Series. Springer.

See Also

gotelli, hanski,levins, MetaSim, clogistic

Examples

## The function is currently defined as
function (t, y, parms)
{
    p <- y[1]
    with(as.list(parms), {
        dp <- ci * p * (1 - D - p) - e * p
        return(list(dp))
    })
  }
library(deSolve)
p <- c(ci=.1, e=.01, D=.5)
time <- 1:10
initialN <- .3
out <- ode(y=initialN, times=time, func=lande, parms=p)
plot(time, out[,-1], type='l')