aboutsummaryrefslogblamecommitdiff
path: root/tests/testthat/test_tffm0.R
blob: 82e1ee9462e13d3f10c4559496afe38863c59c16 (plain) (tree)
1
2
3
4
5
6
7
8
9
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)
})

Contact - Imprint