# NOT RUN {
# a single date within the 14C range 5000 to 10000
data <- data.frame(
age = round(runif(1,5000,10000)),
sd = 3,
datingType = '14C'
)
estimateDataDomain(data, calcurve=intcal20)
# 50 dates within the 14C range 5000 to 10000
data <- data.frame(
age = round(runif(50,5000,10000)),
sd = rep(50,50),
datingType = rep('14C',50)
)
estimateDataDomain(data, calcurve=intcal20)
# }
Run the code above in your browser using DataLab