diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/testthat/test_tffm0.R | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/testthat/test_tffm0.R b/tests/testthat/test_tffm0.R new file mode 100644 index 00000000..82e1ee94 --- /dev/null +++ b/tests/testthat/test_tffm0.R @@ -0,0 +1,10 @@ +test_that("The formation fraction transformation tffm0 is reversible", { + ff_example <- c( + 0.10983681, 0.09035905, 0.08399383 + ) + ff_example_trans <- tffm0(ff_example) + expect_equal(invtffm0(ff_example_trans), ff_example) + + ff_ex_2_trans <- c(0.5, 0.9, 0.99) + expect_true(sum(invtffm0(ff_ex_2_trans)) < 1) +}) |