tests/testthat/test-adjusted.R

In MDgof: Various Methods for the Goodness-of-Fit Problem in D>1 Dimensions

test_that("adjusted p value run", {
  set.seed(113)
  range01 <- matrix(c(0, 1, 0, 1), 2, 2)

  ans <- gof_test_adjusted_pvalue(
    rnull_u2(), pnull_u2, rnull_u2,
    Ranges = range01, dnull = dnull_u2,
    B = 10, maxProcessor = 1
  )
  expect_true(is.numeric(ans))
  expect_false(is.matrix(ans))
  expect_gt(length(ans), 0L)
  expect_true(all(is.finite(ans)))
  
})