tests/testthat/test-cusum_single_median.R

In cusumcharter: Easier CUSUM Control Charts

test_that("cusum_single_median works", {

  test_vec <- c(0.175, 0.152, 0.15, 0.207, 0.136, 0.212, 0.166)
  expected_res <- c(0.175, 0.161, 0.145, 0.186,
                    0.156, 0.202, 0.202)

  #expected_res <- round(expected_res,6)
  func_res <- cusum_single_median(test_vec)
  func_res <- round(func_res,6)

  expect_equal(func_res, expected_res)
})

test_that("target replaces mean and gives expected results", {

  test_vec2 <- c(0.175, 0.152, 0.15, 0.207, 0.136, 0.212, 0.166)
  expected_res2 <- c(0.175, 0.167, 0.157, 0.204, 0.180, 0.232, 0.238)
  func_res2 <- cusum_single_median(test_vec2, target = 0.16)
  expect_equal(func_res2, expected_res2)

})


test_that("non numeric vector fails", {

  test_vec3 <- as.character(c(0.175, 0.152, 0.15, 0.207, 0.136, 0.212, 0.166))
  expect_error(cusum_single_median(test_vec3, target = 0.16))
})


test_that("na elements fail", {

  test_vec3 <- c(0.175, NA, 0.15, 0.207, 0.136, NA, 0.166)
  expect_error(cusum_single_median(test_vec3))
})