# analyse_portableOSL

##### Analyse portable CW-OSL measurements

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.

##### 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`

).

##### Value

##### 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

##### See Also

##### Examples

```
# 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)
# }
```

*Documentation reproduced from package Luminescence, version 0.8.6, License: GPL-3*