Nothing
test_that("No accumulation returns thickness 0", {
adm = tp_to_adm(t = c(1,2), h = c(1,1))
expect_equal(get_total_thickness(adm), 0)
})
test_that("returns correct thickness in standard case", {
adm = tp_to_adm(t = c(1,2), h = c(1,2))
expect_equal(get_total_thickness(adm), 1)
})
test_that("correct results for sac", {
sac = tp_to_sac(1:2, c(2, 1))
expect_equal(get_total_thickness(sac), 1)
})
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.