context("testme")
test_that("testme should produce an issue", {
tmp <- testme()
load(file = "boot_result.Rdata")
print(f2_boot$statistic)
print(tmp$statistic)
expect_equal(
tmp,
f2_boot)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.