analyse_portableOSL: Analyse portable CW-OSL measurements

Description

The function analyses CW-OSL curve data produced by a SUERC portable OSL reader and produces a combined plot of OSL/IRSL signal intensities, OSL/IRSL depletion ratios and the IRSL/OSL ratio.

Usage

analyse_portableOSL(object, signal.integral, invert = FALSE,
  normalise = FALSE, plot = TRUE, ...)

Arguments

object

'>RLum.Analysis (required): RLum.Analysis object produced by read_PSL2R.

signal.integral

vector (required): A vector of two values specifying the lower and upper channel used to calculate the OSL/IRSL signal. Can be provided in form of c(1, 5) or 1:5.

invert

logical (with default): TRUE to calculate and plot the data in reverse order.

normalise

logical (with default): TRUE to normalise the OSL/IRSL signals by the mean of all corresponding data curves.

plot

logical (with default): enable/disable plot output

...

currently not used.

Value

Returns an S4 '>RLum.Results object.

Function version

0.0.3 (2018-01-21 17:22:38)

How to cite

Burow, C. (2018). analyse_portableOSL(): Analyse portable CW-OSL measurements. Function version 0.0.3. In: Kreutzer, S., Burow, C., Dietze, M., Fuchs, M.C., Schmidt, C., Fischer, M., Friedrich, J. (2018). Luminescence: Comprehensive Luminescence Dating Data Analysis. R package version 0.8.6. https://CRAN.R-project.org/package=Luminescence

Details

This function only works with RLum.Analysis objects produced by read_PSL2R. It further assumes (or rather requires) an equal amount of OSL and IRSL curves that are pairwise combined for calculating the IRSL/OSL ratio. For calculating the depletion ratios the cumulative signal of the last n channels (same number of channels as specified by signal.integral) is divided by cumulative signal of the first n channels (signal.integral).

Examples

Run this code

# NOT RUN {
# (1) load example data set
data("ExampleData.portableOSL", envir = environment())

# (2) merge and plot all RLum.Analysis objects
merged <- merge_RLum(ExampleData.portableOSL)
plot_RLum(merged, combine = TRUE)
merged

# (3) analyse and plot
results <- analyse_portableOSL(merged, signal.integral = 1:5, invert = FALSE, normalise = TRUE)
get_RLum(results)



# }

Run the code above in your browser using DataCamp Workspace