tests/testthat/test-discrete-workflows.R

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

test_that("discrete goodness-of-fit workflows run", {
  set.seed(111)

  simple <- gof_test(
    rnull_binom(), pnull_binom, rnull_binom,
    doMethods = "K", B = 10, maxProcessor = 1
  )
  expect_gof_contract(simple)

  estimated <- gof_test(
    rnull_binom_est(0.6), pnull_binom_est, rnull_binom_est,
    phat = phat_binom, doMethods = "K",
    B = 10, maxProcessor = 1
  )
  expect_gof_contract(estimated)

  power_simple <- gof_power(
    pnull_binom, rnull_binom, ralt_binom, c(0.6, 0.7),
    B = 10, maxProcessor = 1,
    SuppressMessages = TRUE
  )
  expect_probability_output(power_simple)

  power_estimated <- gof_power(
    pnull_binom_est, rnull_binom_est, ralt_binom_est, c(0.5, 0.7),
    phat = phat_binom,
    B = 10, maxProcessor = 1,
    SuppressMessages = TRUE
  )
  expect_probability_output(power_estimated)
})