## Radiocarbon data from Bosch et al. 2015
data("ksarakil")
## Calibrate
cal <- c14_calibrate(
values = ksarakil$date,
errors = ksarakil$error,
names = ksarakil$code,
curves = "marine13",
reservoir_offsets = 53,
reservoir_errors = 43,
from = 50000, to = 0
)
plot(cal, level = 0.68)
## SPD
s <- c14_spd(cal)
plot(s)
Run the code above in your browser using DataLab