tests/testthat/test_fit_CWCurve.R

In Luminescence: Comprehensive Luminescence Dating Data Analysis

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)
  #
  # }

})