# NOT RUN {
sequence <-
list(
IRR = c(20, 10, 1),
TL = c(20, 400, 5),
IRR = c(20, 10, 1),
TL = c(20, 400, 5))
##model sequence
model.output <- model_LuminescenceSignals(
sequence = sequence,
verbose = FALSE,
plot = FALSE,
model = "Bailey2001")
## trace
trace_ParameterStateEvolution(model.output)
# }
Run the code above in your browser using DataLab