test_that("cusumr works", {
df <- c(0,0,0,0,1,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)
expect_type(cusumr(df), "list")
expect_true(sum(is.na(cusumr(df)$cusum_score)) == 0)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.