velociraptr (version 1.0)

uniformExtinction: Uniform Confidence Intervals

Description

Estimate a confidence interval on time of extinction or origination when assuming a uniform probability of collection.

Usage

uniformExtinction(Ages, Confidence = 0.95)
uniformOrigination(Ages, Confidence = 0.95)

Arguments

Ages

a numeric vector of fossil occurrence ages, expressed as millions of years ago.

Confidence

the desired confidence level

Value

A matrix listing the earliest and latest estimate for extinction or origination.

Details

Takes a numeric vector of fossil occurrence ages, expressed as millions of years ago, to estimate either the time of origination uniformOrigination or extinction uniformExtinction. This code uses Marshall's adaptation of the function by Strauss and Sadler.

Marshall, C.R. (1990) "Confidence intervals on stratigraphic ranges" Paleobiology 16:1-10.

Examples

# NOT RUN {
# Generate an exmaple dataset of fossil ages
FakeAges<-runif(50,50,100)

# Calculate the inferred age of extinction with 95% confidence.
uniformExtinction(FakeAges,Confidence=0.95)

# Calculate the inferred age of origination with 50% confidence.
uniformOrigination(FakeAges,Confidence=0.5)

# }