tests/testthat/test_replicability.R

In bootUR: Bootstrap Unit Root Tests

context("Test replicability of RNG sequences")

test_that("Replicability ADF", {
  set.seed(1111)
  out1a <- boot_adf(MacroTS[, 1], B = 199, bootstrap = "AWB", deterministics = "trend",
                    do_parallel = FALSE, show_progress = FALSE)
  out2a <- boot_adf(MacroTS[, 6], B = 199, bootstrap = "MBB", deterministics = "trend",
                    do_parallel = FALSE, show_progress = FALSE)
  set.seed(1111)
  out1b <- boot_adf(MacroTS[, 1], B = 199, bootstrap = "AWB", deterministics = "trend",
                    do_parallel = FALSE, show_progress = FALSE)
  out2b <- boot_adf(MacroTS[, 6], B = 199, bootstrap = "MBB", deterministics = "trend",
                    do_parallel = FALSE, show_progress = FALSE)
  expect_equal(out1a, out1b)
  expect_equal(out2a, out2b)
})

test_that("Replicability union", {
  set.seed(1111)
  out1a <- boot_union(MacroTS[, 12], B = 199, bootstrap = "SWB", do_parallel = FALSE,
                      show_progress = FALSE)
  out2a <- boot_union(MacroTS[, 16], B = 199, bootstrap = "BWB", do_parallel = FALSE,
                      show_progress = FALSE)
  set.seed(1111)
  out1b <- boot_union(MacroTS[, 12], B = 199, bootstrap = "SWB", do_parallel = FALSE,
                      show_progress = FALSE)
  out2b <- boot_union(MacroTS[, 16], B = 199, bootstrap = "BWB", do_parallel = FALSE,
                      show_progress = FALSE)
  expect_equal(out1a, out1b)
  expect_equal(out2a, out2b)
})