killerWhaleExtinction: Extinction risk of Southern Resident Killer Whales

In tessington/quantecol: Introduction to Quantitative Ecology

Extinction risk of Southern Resident Killer Whales

Description

Perform simulations to evaluate the risk that southern resident killer whales will drop below the quasi-extinction threshold (4) over the next 100 years, given the data on total killer whale counts. The model simulates 10,000 random population runs, under three scenarios

• "base", where parameters are assumed to be known and the lambdas are independent

• "autocorrelation" where the log-lambdas are presumed to be autocorrelated

• "uncertainty" where we admit uncertainty in the estimates of the mean and standard deviation of the log lambdas

Usage

killerWhaleExtinction(model.type = "base", viewcode = FALSE)

Arguments

model.type	is character that is either 'base', 'autocorrelation', or 'uncertainty', associated with the three scenarios in Table 5.1.
viewcode	TRUE or FALSE (default) indicating whether to print the function code

Value

the estimated probability of extinction over the next 100 years, and plots Figures 5.5 and 5.6.

Examples

# Run the base model
extinct.base <- killerWhaleExtinction(model.type = "base")
# Run the uncertainty model
extinct.uncertainty <- killerWhaleExtinction(model.type = "uncertainty")
 # View the code
killerWhaleExtinction(viewcode = TRUE)

tessington/quantecol documentation built on June 1, 2025, 9:06 p.m.