###load data
data(ExampleData.BINfileData, envir = environment())
##convert values for position 1
temp <- Risoe.BINfileData2RLum.Analysis(CWOSL.SAR.Data, pos=1)
##plot all values
plot_RLum.Analysis(temp)
##plot (combine) TL curves in one plot
temp.sel <- get_RLum.Analysis(temp, recordType = "TL", keep.object = TRUE)
plot_RLum.Analysis(temp.sel, combine = TRUE, norm = TRUE, main = "TL combined")
Run the code above in your browser using DataLab