base_temp_dir <- tempdir()
clam_dir <- file.path(base_temp_dir, "clam_runs")
dir.create(clam_dir, recursive = TRUE, showWarnings = FALSE)
clam(coredir=clam_dir, storedat=TRUE)
dp <- deptime.age(5000)
summary(dp)
deptime.age(5000, yrcm=FALSE) # to calculate sedimentation times in cm/yr, so accumulation rates
Run the code above in your browser using DataLab