edited g.test

2025-07-08 17:21:49 +02:00 · 2019-01-12 11:06:58 +01:00
parent 641d866db2
commit 5aad26035c
62 changed files with 703 additions and 845 deletions
--- a/tests/testthat/test-g.test.R
+++ b/tests/testthat/test-g.test.R
@ -48,10 +48,12 @@ test_that("G-test works", {
  x <- as.data.frame(
    matrix(data = round(runif(4) * 100000, 0),
           ncol = 2,
-
           byrow = TRUE)
  )
-  expect_lt(g.test(x)$p.value,
+ 
+  # fisher.test() is always better for 2x2 tables:
+  expect_warning(g.test(x))
+  expect_lt(suppressWarnings(g.test(x)$p.value),
            1)

  expect_warning(g.test(x = c(772, 1611, 737),