Nothing
test_that("Hedges_g", {
testthat::expect_true(round(Hedges_g(Cremains_measurements[1, ])$g, 4) == 1.6272)
testthat::expect_true(round(Hedges_g(Cremains_measurements[1, ], rand = F, B = 100)[[2]], 4)
== 0.8933)
})
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.