Description Usage Arguments Details Value Author(s) References See Also Examples
Generates random, cascade and niche food webs with S species and L links
1 2 3 4 5 | generate.random (S, L)
generate.cascade (S, L)
generate.niche (S, L, c = 1, Ctol = 0.1, toliter = 1000)
|
S |
The number of species in the food web |
L |
The number of links in the food web |
Ctol |
Connectance tolerance for niche model generation. Models with connectance beyond +/- Ctol of the empirical web connectance will be replaced until within tolerance. Defaults to 0.1 |
c |
parameter for niche food web generation; If ( |
toliter |
The maximum number of times to try generating a model which conforms to the connectance tolerance. Defaults to 1000. |
Function generate.random
generates a random food web with S
species and L
links
Function generate.cascade
generates a cascade food web with S
species and L
links
Function generate.niche
generates a generalized niche model with S
species and L
links.
Includes a check for desired connectance
a Flow matrix
Yangchen Lin <linyangchen@gmail.com>,
Karline Soetaert <k.soetaert@nioo.knaw.nl>,
Owen Petchey <owen.petchey@ieu.uzh.ch>
Stouffer, D.B., Camacho, J., Guimer\'a, R., Ng, C.A. and L.A. Nunes Amaral, 2005 Quantitative patterns in the structure of model and empirical food webs. Ecology 86(5), 1301–1311.
Stouffer, D.B., Camacho, J. and L.A. Nunes Amaral, 2006 A robust measure of food web intervality. PNAS 103 (50), www.pnas.org/cgi/reprintframed/103/50/19015
Interval
, the food web intervality index.
Benguela
, the Benguela pelagic food web.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | ## -----------------------------------------------------------------------------
## Characteristics of the Benguela food web:
## -----------------------------------------------------------------------------
L <- 203
S <- 29
randomweb <- generate.random (S, L)
cascadeweb <- generate.cascade (S, L)
nicheweb <- generate.niche (S, L)
# image plots
par (mfrow = c(2,2))
imageweb(randomweb, main = "random web")
imageweb(cascadeweb, main = "cascade web")
imageweb(nicheweb, main = "niche web")
BB <- (Benguela) ; BB[BB > 0] <- 1
imageweb(BB, main = "Benguela food web")
## -----------------------------------------------------------------------------
## Niche webs
## -----------------------------------------------------------------------------
nicheweba <- generate.niche (S, L, c = 0)
nichewebb <- generate.niche (S, L, c = 0.3)
nichewebc <- generate.niche (S, L, c = 0.6)
nichewebd <- generate.niche (S, L, c = 1.0)
par (mfrow = c(2,2))
imageweb(nicheweba, main = "niche web, c = 0")
imageweb(nichewebb, main = "niche web, c = 0.3")
imageweb(nichewebc, main = "niche web, c = 0.6")
imageweb(nichewebd, main = "niche web, c = 1")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.