tests/testthat/test-utils.R

In fChange: Functional Change Point Detection and Analysis

test_that("Specify Decimal Check", {
  test <- .specify_decimal(1, 2)
  expect_equal(test, "1.00")
  expect_equal(nchar(test), 4)

  test <- .specify_decimal(1.2345, 1)
  expect_equal(test, "1.2")
  expect_equal(nchar(test), 3)
})

test_that("Select n Check", {
  expect_equal(.select_n(1:10, 1), 1)
  expect_equal(.select_n(1:10, 2), c(1, 10))
  expect_equal(.select_n(1:10, 6), c(1, 3, 5, 6, 8, 10))
})

test_that("Get Chunks Check", {
  expect_equal(length(.getChunks(1:100, 1)), 100)
  expect_equal(length(.getChunks(1:100, 2)), 2)
  expect_equal(length(.getChunks(1:100, 4)[[1]]), 25)
})

test_that("Bootstrap Check", {
  set.seed(123)
  expect_equal(.bootstrap(electricity, 1, M = 2)[[2]][2, 2], 29.7)
  expect_equal(length(.bootstrap(electricity, 1, M = 10)), 10)
  expect_equal(length(.bootstrap(electricity, 1, M = 10, type = "separate")), 10)
  expect_equal(
    round(.bootstrap(electricity, 1,
      M = 10, type = "separate",
      fn = .characteristic_statistic, statistic = "Tn"
    )[[2]], 4), 0.1249
  )
})