## load example data
data(ExampleData.XSYG, envir = environment())
## plot single curve
plot_RLum(TL.Spectrum)
## sum two copies of the same curve
merged <- merge_RLum.Data.Spectrum(list(TL.Spectrum, TL.Spectrum),
merge.method = "sum")
plot_RLum(merged)
Run the code above in your browser using DataLab