##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)
##get results and store them in a new object
temp.get<- get_RLum(object = temp1)Run the code above in your browser using DataLab