Nothing
test_that("check class of output",{
skip_on_cran()
local_edition(3)
sequence <- RLumModel:::.create_DRT.sequence(
Irr_2recover = 20,
RegDose = c(0,8),
TestDose = 5,
PH = 240,
CH = 200,
OSL_temp = 125
)
expect_equal(class(sequence), "list")
})
test_that("check error for missing object",{
skip_on_cran()
local_edition(3)
expect_error(
sequence <- RLumModel:::.create_DRT.sequence(
RegDose = c(0,8),
TestDose = 5,
PH = 240,
CH = 200,
OSL_temp = 125),
"argument \"Irr_2recover\" is missing")
expect_error(
sequence <- RLumModel:::.create_DRT.sequence(
Irr_2recover = 20,
RegDose = c(0,8),
TestDose = 5,
PH = 240,
CH = 200),
"argument \"OSL_temp\" is missing")
expect_error(
sequence <- RLumModel:::.create_DRT.sequence(
Irr_2recover = 20,
RegDose = c(0,8),
TestDose = 5,
PH = 240,
OSL_temp = 125),
"argument \"CH\" is missing")
expect_error(
sequence <- RLumModel:::.create_DRT.sequence(
Irr_2recover = 20,
RegDose = c(0,8),
TestDose = 5,
OSL_temp = 125,
CH = 200),
"argument \"PH\" is missing")
expect_error(
sequence <- RLumModel:::.create_DRT.sequence(
Irr_2recover = 20,
RegDose = c(0,8),
PH = 240,
CH = 200,
OSL_temp = 125),
"argument \"TestDose\" is missing")
expect_error(
sequence <- RLumModel:::.create_DRT.sequence(
Irr_2recover = 20,
TestDose = 5,
PH = 240,
CH = 200,
OSL_temp = 125),
"argument \"RegDose\" is missing")
})
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.