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")