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