Nothing
testthat::test_that("ird()", {
data("byHeart2011")
ird_res <- ird(byHeart2011, phases = c(1,2))
testthat::expect_equal(round(ird_res$ird, 3), 0.845)
})
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.