Nothing
test_that("D_index", {
testthat::expect_true(round(D_index(Cremains_measurements[1, ])$D, 4) == 0.5983)
testthat::expect_true(round(D_index(Cremains_measurements[1, ], rand = F, B = 100)[[4]], 4)
== 0.7701)
})
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.