Nothing
test_that("MI_index", {
testthat::expect_true(MI_index(Cremains_measurements[1, ])$MI == 0.2008)
testthat::expect_true(round(MI_index(Cremains_measurements[1, ], rand = F, B = 100)[[4]], 4)
== 0.2905)
testthat::expect_true(MI_index(Cremains_measurements[1, ], index_type = "NI")[[2]] == 0.4016)
})
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.