coexist (version 1.0)

compvar: competition parameters' matrix

Description

competition parameters' matrix

Usage

compvar(island, rate = 0.5, scale = 2, type = "constant")

Arguments

island

patch number in the simulation

rate

basal dispersal rate across the patches

scale

controlling the parameter's low value=parameter original value/scale; while parameter's high value=parameter original value*scale.

type

a model configuration vector describing the spatial patterns of each of the parameters, for example, a vector like this, c("decrease","decrease","decrease","increase","increase","increase","mosaiclow") can be used as the input. There are 5 simple spatial types currently for the package: "decrease",the parameter will have one-time decreasing transition from source patch to other sink patches in the middle of the patches "increase",the parameter will have one-time increasing transition from source patch to other sink patches in the middle of the patches "constant",the parameter will keep in a constant value across the patches during the simulation "mosaiclow",the parameter will switch from a low value to a high value one-by-one from the source patch to sink patches, so source patch the parameter for the species there will be assigned a low value "mosaichigh",the parameter will switch from a high value to a low value one-by-one from the source patch to sink patches,so source patch the parameter for the species there will be assigned a high value

References

Chen YH (2012) coexist: an R package for performing species coexistence modeling and analysis under asymmetric dispersal and fluctuating source-sink dynamics. http://code.google.com/p/coexist.

See Also

flex.competition, competition

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (island, rate = 0.5, scale = 2, type = "constant") 
{
    comp <- matrix(0, ncol = island, nrow = 2)
    comp[1, ] = parsetting(island, rate, scale, type)
    comp[2, ] = 1 - comp[1, ]
    return(comp)
  }