Set rhop in fit_IsothermalHolding() tests to a more plausible value.

R-Lum · Feb 3, 2025 · f6b8821 · f6b8821
1 parent 75282bd
commit f6b8821
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test_fit_IsothermalHolding.R b/tests/testthat/test_fit_IsothermalHolding.R
@@ -22,10 +22,10 @@ test_that("input validation", {
 test_that("check functionality", {
   testthat::skip_on_cran()
 
-  expect_s4_class(fit_IsothermalHolding(input.csv[1], rhop = -7),
+  expect_s4_class(fit_IsothermalHolding(input.csv[1], rhop = 1e-7),
                   "RLum.Results")
 
   data <- .import_ThermochronometryData(input.csv[1])
-  expect_s4_class(fit_IsothermalHolding(data, rhop = -7, mfrow = c(2, 2)),
+  expect_s4_class(fit_IsothermalHolding(data, rhop = 1e-7, mfrow = c(2, 2)),
                   "RLum.Results")
 })