context("Test artefact rejection methods")
test_that("FASTER runs correctly.", {
test_FASTER <- ar_FASTER(demo_epochs)
expect_known_output(test_FASTER, "faster_t.Rdata")
#expect_known_hash(test_FASTER, "04de56b5ba")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.