test_that("check class and length of output", {
testthat::skip_on_cran()
local_edition(3)
data(ExampleData.CW_OSL_Curve, envir = environment())
fit <- fit_CWCurve(values = ExampleData.CW_OSL_Curve,
main = "CW Curve Fit",
n.components.max = 4,
log = "x",
plot = FALSE)
expect_s4_class(fit, "RLum.Results")
expect_equal(length(fit), 3)
})
test_that("check values from output example", {
testthat::skip_on_cran()
local_edition(3)
data(ExampleData.CW_OSL_Curve, envir = environment())
fit <- fit_CWCurve(values = ExampleData.CW_OSL_Curve,
main = "CW Curve Fit",
n.components.max = 4,
log = "x",
plot = FALSE)
t <- sessionInfo()
#if(grepl(pattern = "apple", x = t$R.version$platform)) {
expect_equal(fit$data$n.components, 3, tolerance = 1)
expect_equal(round(fit$data$I01, digits = 0), 2388, tolerance = 1)
expect_equal(round(fit$data$lambda1, digits = 1), 4.6, tolerance = 1)
expect_equal(round(fit$data$`pseudo-R^2`, digits = 0), 1)
# } else {
# expect_equal(fit$data$n.components, 2)
# expect_equal(round(fit$data$I01, digits = 0), 3286)
# expect_equal(round(fit$data$lambda1, digits = 1), 3.8)
# expect_equal(round(fit$data$`pseudo-R^2`, digits = 0), 1)
#
# }
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.