##load package example data
data(ExampleData.BINfileData, envir = environment())
##convert Risoe.BINfileData into a curve object
temp <- Risoe.BINfileData2RLum.Analysis(TL.SAR.Data, pos = 3)
Lx.data.signal <- get_RLum(temp, record.id=1)
Lx.data.background <- get_RLum(temp, record.id=2)
Tx.data.signal <- get_RLum(temp, record.id=3)
Tx.data.background <- get_RLum(temp, record.id=4)
signal_integral <- 210:230
output <- calc_TLLxTxRatio(
Lx.data.signal,
Lx.data.background,
Tx.data.signal,
Tx.data.background,
signal_integral)
get_RLum(output)
Run the code above in your browser using DataLab