Nothing
test_that("correct heights are returned",{
h = 1:4
t = 1:4
adm = tp_to_adm(t, h)
expect_equal(get_L_tp(adm), h)
h = rev(h)
sac = tp_to_sac(t, h)
expect_equal(get_L_tp(sac), h)
})
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.