# \donttest{
library(RRgeo)
## Create an example dataset with 100 random radiocarbon ages and errors
set.seed(2025)
data.frame(age=round(runif(100,20000,50000),0),
uncertain=round(runif(100,20,300),0),
latitude=round(runif(100,-90,90),2))->data
data$domain<-"domain"
rep("marine",5)-> data[sample(nrow(data),5),"domain"]
cal14C(dataset=data,
age="age",
uncertainty = "uncertain",
latitude = "latitude",
domain<-"domain",
clust=NULL,
save= FALSE)->res
# }
Run the code above in your browser using DataLab