##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