context("bootSd functions correctly")
test_that("bootSd removes NAs and throws appropriate errors", {
expect_equal(bootSd(c(1,2,3,NA)), 1)
expect_warning(bootSd("cats"))
expect_error(bootSd())
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.