tests/testthat/test-cusumr.R

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)
})
rsh52/cusumr documentation built on May 11, 2021, 1:38 a.m.