# NOT RUN {
# Calibrate a single age
ages1 <- BchronCalibrate(
ages = 11553,
ageSds = 230,
calCurves = "intcal20",
ids = "Date-1"
)
summary(ages1)
plot(ages1)
# Or plot with Calibration curve
plot(ages1, includeCal = TRUE)
# Calibrate multiple ages with different calibration curves
ages2 <- BchronCalibrate(
ages = c(3445, 11553, 7456),
ageSds = c(50, 230, 110),
calCurves = c("intcal20", "intcal20", "shcal20")
)
summary(ages2)
plot(ages2)
# Calibrate multiple ages with multiple calibration curves and including depth
ages3 <- BchronCalibrate(
ages = c(3445, 11553),
ageSds = c(50, 230),
positions = c(100, 150),
calCurves = c("intcal20", "normal")
)
summary(ages3)
plot(ages3, withPositions = TRUE)
# }
Run the code above in your browser using DataLab