##show data
data(ExampleData.XSYG, envir = environment())
## =========================================
##(1) OSL.SARMeasurement
OSL.SARMeasurement
##show $Sequence.Object
OSL.SARMeasurement$Sequence.Object
##grep OSL curves and plot the first curve
OSLcurve <- get_RLum(OSL.SARMeasurement$Sequence.Object,
recordType="OSL")[[1]]
plot_RLum(OSLcurve)
## =========================================
##(2) TL.Spectrum
TL.Spectrum
##plot simple spectrum (2D)
plot_RLum.Data.Spectrum(TL.Spectrum,
plot.type="contour",
xlim = c(310,750),
ylim = c(0,300),
bin.rows=10,
bin.cols = 1)
##plot 3d spectrum (uncomment for usage)
# plot_RLum.Data.Spectrum(TL.Spectrum, plot.type="persp",
# xlim = c(310,750), ylim = c(0,300), bin.rows=10,
# bin.cols = 1)
Run the code above in your browser using DataLab