##Full check
test_that("Full check", {
skip_on_cran()
local_edition(3)
##check stops
##RLum-object
expect_error(object = analyse_Al2O3_ITC(object = "test"))
##input curve type
a <- set_RLum(class = "RLum.Data.Curve", recordType = "OSL", data = matrix(1:20, ncol = 2))
b <- set_RLum(class = "RLum.Data.Curve", recordType = "TL")
object <- set_RLum(class = "RLum.Analysis", records = list(a,b))
expect_error(object = analyse_Al2O3_ITC(object))
##check with example data
##load data
data(ExampleData.Al2O3C, envir = environment())
##run analysis
expect_s4_class(analyse_Al2O3C_ITC(data_ITC), "RLum.Results")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.