tests/testthat/test-gammaMatrix-gammacap_nb-univariate.R

In jeksterslab/gammaMatrix: Asymptotic Covariance Matrix of Covariances

## ---- test-gammaMatrix-gammacap_nb-univariate
set.seed(42)
tol_i <- 0.5
x_i <- as.vector(scale(rnorm(1000)))
normal_i <- gammacap(x_i, type = "mvn")
testthat::test_that("test-gammaMatrix-gammacap_nb-univariate", {
  testthat::expect_true(
    all(
      abs(normal_i - gammacap(x_i, type = "nb")) <= tol_i
    )
  )
})
testthat::test_that("test-gammaMatrix-gammacap_nb-univariate seed", {
  testthat::expect_true(
    all(
      abs(normal_i - gammacap(x_i, type = "nb", seed = 42)) <= tol_i
    )
  )
})
# clean environment
rm(
  x_i,
  tol_i,
  normal_i
)