## Example based using data and from the calc_CentralDose() function
## load example data
data(ExampleData.DeValues, envir = environment())
## apply the central dose model 1st time
temp1 <- calc_CentralDose(ExampleData.DeValues$CA1)
## get results and store them in a new object
temp.get <- get_RLum(object = temp1)
Run the code above in your browser using DataLab