tests/testthat/test-bootstrap.R

In keesmulder/aoristicinference: Analyses for aoristic (ie. interval-censored circular) data through descriptive, parametric and non-parametric models

context("Aoristic Von Mises bootstrap")

test_that("Aoristic Bootstrap Works", {

  dat <- generateAoristicData()

  aoboot <- aoristic_vm_bootstrap(data = dat, R = 3, tol = .1)

  expect_is(aoboot, "aovmboot")

  # Bootstrap finds original results.
  expect_length(aoboot, 3)
  expect_true(abs(aoboot$tab["original", 2] - aoristic_vm_mle(dat))[1] < .1)
  expect_true(abs(aoboot$tab["original", 3] - aoristic_vm_mle(dat))[2] < .1)




})