# NOT RUN {
# SPD of two 14C dates, calibrated through intcal20 (default)
data <- data.frame(
age=c(6562,7144),
sd=c(44,51)
)
x <- summedCalibratorWrapper(data)
# one date is not 14C
data <- data.frame(
age = c(6562,7144),
sd = c(44,51),
datingType = c('14C','TL')
)
x <- summedCalibratorWrapper(data)
# }
Run the code above in your browser using DataLab