test-repeated-values.R
In jfa: Statistical Methods for Auditing

# Copyright (C) 2020-2023 Koen Derks

# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.

# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

context("Validation of function repeated_test")

test_that(desc = "Print and plot call", {
  testthat::skip_on_cran()
  data("sanitizer")
  res <- repeated_test(x = sanitizer$value, check = "last", method = "af", samples = 1) # Adjusted from 500 to 1 for check time control
  p <- plot(res)
  expect_equal(is.null(p), FALSE)
})

test_that(desc = "Validate Datacolada[77]", {
  testthat::skip_on_cran()
  data("sanitizer")
  res <- repeated_test(x = sanitizer$value, check = "last", method = "af", samples = 1) # Adjusted from 500 to 1 for check time control
  expect_equal(as.numeric(res$statistic), 1.5225)
  res <- repeated_test(x = sanitizer$value, check = "last", method = "entropy", samples = 1) # Adjusted from 500 to 1 for check time control
  expect_equal(as.numeric(res$statistic), 7.065769174)
})