# 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