Nothing
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)))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.