## trim all TL curves in the object to channels 10 to 20
data(ExampleData.BINfileData, envir = environment())
temp <- Risoe.BINfileData2RLum.Analysis(CWOSL.SAR.Data, pos = 1)
c <- trim_RLum.Data(
object = temp,
recordType = "TL",
trim_range = c(10,20))
plot_RLum.Analysis(
object = c,
combine = TRUE,
subset = list(recordType = "TL"))
## simulate a situation where one OSL curve
## in the dataset has only 999 channels instead of 1000
## all curves should be limited to 999
temp@records[[2]]@data <- temp@records[[2]]@data[-nrow(temp[[2]]@data),]
c <- trim_RLum.Data(object = temp)
nrow(c@records[[4]]@data)
Run the code above in your browser using DataLab