##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.min <- 210
signal.integral.max <- 230
output <- calc_TLLxTxRatio(
Lx.data.signal,
Lx.data.background,
Tx.data.signal,
Tx.data.background,
signal.integral.min,
signal.integral.max)
get_RLum(output)
Run the code above in your browser using DataLab