Bayesian Credible Interval
Arguments
- x
A
CalibratedAgesobject.- level
A length-one
numericvector giving the confidence level.- n
An
integerspecifying the number of random samples.- ...
Currently not used.
Value
A CalibratedIntervals object.
See also
Other statistics:
interval_hdr(),
mean(),
median(),
quantile()
Examples
## Calibrate multiple dates
cal <- c14_calibrate(
values = c(5000, 4500),
errors = c(45, 35),
names = c("X", "Y")
)
## Credible intervals
crd68 <- interval_credible(cal, level = 0.683)
crd95 <- interval_credible(cal, level = 0.954)
crd99 <- interval_credible(cal, level = 0.997)
## Coerce to data.frame
as.data.frame(crd95, calendar = BC())
#> label start end p
#> 1 X 3942 3688 0.954
#> 2 Y 3352 3106 0.954
## Plot
plot(cal, interval = "credible")