# NOT RUN {
# Single version outputting just an uncalibrated age
unCalibrate(2350, type = "ages")
# Vector version giving a vector of uncalibrated ages
unCalibrate(
calAge = c(2350, 4750, 11440),
calCurve = "shcal20",
type = "ages"
)
# A version where calibrated standard deviations are required too
calAge <- BchronCalibrate(
ages = 11255,
ageSds = 25,
calCurves = "intcal20"
)
calSampleAges <- sampleAges(calAge)
# Uncalibrate the above
unCalibrate(calSampleAges,
type = "samples"
)
# }
Run the code above in your browser using DataLab