context("test span")
test_that("span counting code works", {
vals = c(2, 2, 3, 4, 4, 6, 7, 7, 8, 6, 6, 6, 7, 8)
correct_span = 7
expect_equal(aceR:::ace_span(vals), correct_span)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.