Nothing
##Full check
test_that("Test examples", {
skip_on_cran()
local_edition(3)
##load data
data(ExampleData.BINfileData, envir = environment())
##transform the values from the first position in a RLum.Analysis object
object <- Risoe.BINfileData2RLum.Analysis(TL.SAR.Data, pos=3)
##perform analysis
expect_s4_class(
analyse_SAR.TL(
object,
signal.integral.min = 210,
signal.integral.max = 220,
fit.method = "EXP OR LIN",
sequence.structure = c("SIGNAL", "BACKGROUND")
),
"RLum.Results"
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.