diff options
| author | Johannes Ranke <johannes.ranke@jrwb.de> | 2025-02-16 13:39:38 +0100 |
|---|---|---|
| committer | Johannes Ranke <johannes.ranke@jrwb.de> | 2025-02-16 14:16:15 +0100 |
| commit | 44c30938872bd7cc80a4c84dd4db593e26000fce (patch) | |
| tree | 83e7f83d7e25af721fb5e363c01c0097ca573d74 /tests/testthat/test_FOCUS_D_UBA_expertise.R | |
| parent | 91a5834dd701211f929fd25419dc34561ce3b4e7 (diff) | |
Some test improvements
- Another test for analytical solution of SFO-SFO
This is a bit redundant, because we have tests using those solutions
in test_analytical.R, where mkinfit is used. But nevertheless, it is
good to know that using mkinpredict directly also passes the test.
- A more explicit testing of the warning message that is issued
if a use turns of transformation of formation fractions
Diffstat (limited to 'tests/testthat/test_FOCUS_D_UBA_expertise.R')
| -rw-r--r-- | tests/testthat/test_FOCUS_D_UBA_expertise.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/testthat/test_FOCUS_D_UBA_expertise.R b/tests/testthat/test_FOCUS_D_UBA_expertise.R index faf473c4..323fb7b3 100644 --- a/tests/testthat/test_FOCUS_D_UBA_expertise.R +++ b/tests/testthat/test_FOCUS_D_UBA_expertise.R @@ -40,7 +40,7 @@ test_that("Fits without internal transformations are correct for FOCUS D", { fit.ff.notrans <- mkinfit(SFO_SFO.ff, FOCUS_2006_D, transform_fractions = FALSE, transform_rates = FALSE, quiet = TRUE, solution_type = "deSolve"), - "sum of formation fractions") + "The sum of formation fractions may exceed one") expect_equivalent(round(fit.ff.notrans$bparms.optim, c(2, 4, 4, 4)), c(99.60, 0.0987, 0.0053, 0.5145)) |