test_that("main", {
res <- autocorr(exampleABC)
testsum <- sum(
unlist(lapply(res$autocorr, function(x) unlist(x[,-1]))), na.rm = TRUE
)
expect_equal(round(testsum,4), -0.3649)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.