###load data
data(ExampleData.DeValues, envir = environment())
# apply the un-logged minimum age model
mam<- calc_MinDose(data = ExampleData.DeValues, sigmab = 0.2, log = FALSE, plot = FALSE)
##plot
plot_RLum.Results(mam)
# estimate the number of grains on an aliquot
grains<- calc_AliquotSize(grain.size = c(100,150), sample.diameter = 1, plot = FALSE)
##plot
plot_RLum.Results(grains)
Run the code above in your browser using DataLab