tests/testthat/test_flip_ddc.R

test_that("flipping twice returns the original depth-depth curve",{
  ddc = tp_to_ddc(h1 = 1:3, h2 = 2:4, L_unit_1 = "m", L_unit_2 = "d")
  expect_equal(ddc, flip_ddc(flip_ddc(ddc)))
})

Try the admtools package in your browser

Any scripts or data that you put into this service are public.

admtools documentation built on June 8, 2025, 10:35 a.m.