context("DECorrInputs")
data(fetchDataHmChimp)
inputBundle <- DECorrInputs(fetchDataHmChimp)
test_that("DECorrInputs() returns 2 tables", {
# check there are 6 output tables
expect_equal(length(inputBundle), 2)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.