Nothing
test_that("check output",{
skip_on_cran()
local_edition(3)
parms <- RLumModel:::.set_pars("Bailey2001")
n <- parms$n$n
test_simulate_illumination <- RLumModel:::.simulate_illumination(
temp = 125,
duration = 100,
optical_power = 90,
n = n,
parms = parms)
expect_equal(class(test_simulate_illumination)[1], "RLum.Results")
expect_equal(length(test_simulate_illumination$n), length(parms$N) + 2)
expect_equal(test_simulate_illumination$temp, 125)
parms <- RLumModel:::.set_pars("Bailey2002")
n <- parms$n$n
test_simulate_illumination <- RLumModel:::.simulate_illumination(
temp = 125,
duration = 100,
optical_power = 90,
n = n,
parms = parms)
})
test_that("test controlled crash conditions", {
skip_on_cran()
local_edition(3)
parms <- RLumModel:::.set_pars("Bailey2001")
n <- parms$n$n
expect_error(
RLumModel:::.simulate_illumination(
temp = -274,
duration = 1,
optical_power = 100,
n = n,
parms = parms),
regexp = "[.simulate_illumination()] Argument 'temp' has to be > 0 K!",
fixed = TRUE)
expect_error(
RLumModel:::.simulate_illumination(
temp = 20,
duration = -1,
optical_power = 100,
n = n,
parms = parms),
regexp = "[.simulate_illumination()] Argument 'duration' has to be a positive number!",
fixed = TRUE)
expect_error(
RLumModel:::.simulate_illumination(
temp = 20,
duration = 1,
optical_power = -1,
n = n,
parms = parms),
regexp = "[.simulate_illumination()] Argument 'optical_power' has to be a positive number!",
fixed = TRUE)
})
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.