## load example dataset
xsyg <- read_XSYG2R(
system.file("extdata/XSYG_file.xsyg", package = "Luminescence"),
fastForward = TRUE,
verbose = FALSE)
## remove constant background from OSL curves
remove_SignalBackground(
object = xsyg,
object_bg = 100,
recordType = "OSL (UVVIS)")
## use a more elaborate examples
## with two TL curves (2nd is background)
xsyg_v1 <- set_RLum("RLum.Analysis", records = c(
rep(xsyg[[1]]@records[[1]], 2),
xsyg[[1]]@records[[4]],
xsyg[[1]]@records[[4]],
rep(xsyg[[1]]@records[[10]], 2),
xsyg[[1]]@records[[4]],
xsyg[[1]]@records[[4]]))
## remove background and strip background
## curves from the object
o <- remove_SignalBackground(
object = xsyg_v1,
recordType = "TL (UVVIS)")
Run the code above in your browser using DataLab