Become an expert in R — Interactive courses, Cheat Sheets, certificates and more!
Get Started for Free

extinction

Simulates extinction of a species from a bipartite network


Description

Following (how I remember) the paper of Memmott et al. (2004), this function deletes a column (e.g. pollinator) or row (e.g. plant). Only a helper function for second.extinct, really.

Usage

extinction(web, participant = "both", method = "random", ext.row=NULL, 
	ext.col=NULL)

Arguments

web

A matrix representing the interactions observed between higher trophic level species (columns) and lower trophic level species (rows). Usually this will be number of pollinators on each species of plants or number of parasitoids on each species of prey.

participant

Which level of participant to remove: lower removes a row, higher removes a row, both randomly picks either row or column.

method

Determines sequence of extinctions: random removes a random participant, while abundance removes the least abundant species first. external will use the externally provided vector to determine extinction sequence.

ext.row

Optional vector giving the sequence in which lower-level species are to be deleted.

ext.col

Optional vector giving the sequence in which higher-level species are to be deleted.

Details

In itself rather useless. Called repeatedly by second.extinct to build an extinction sequence and accordingly a sequence of secondary extinctions.

Value

Returns the same matrix that was given as object, just with one row or column being turned into zeros.

Author(s)

Carsten F. Dormann

References

Memmott, J., Waser, N. M. and Price, M. V. 2004 Tolerance of pollination networks to species extinctions. Proceedings of the Royal Society B 271, 2605–2611

See Also

Examples

## Not run: 
	data(Safariland)
	(w <- extinction(Safariland, participant="lower", method="abun"))
	empty(w, count=TRUE)

## End(Not run)

bipartite

Visualising Bipartite Networks and Calculating Some (Ecological) Indices

v2.16
GPL
Authors
Carsten F. Dormann, Jochen Fruend and Bernd Gruber, with additional code from Stephen Beckett, Mariano Devoto, Gabriel Felix, Jose Iriondo, Tove Opsahl, Rafael Pinheiro, Rouven Strauss and Diego Vazquez, also based on C-code developed by Nils Bluethgen, Aaron Clauset/Rouven Strauss and Miguel Rodriguez-Girones
Initial release
2021-02-08

We don't support your browser anymore

Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.