tests/testthat/test-fisher.R

In rupambh/rupamb625: Methods for aggregating p-values

test_that("Fisher's method works with all positive inputs.", {
  expect_equal(fisher(c(.1, .2, .3)), 0.1152162)
})

test_that("Fisher's method works with at least one zero input.", {
  expect_equal(fisher(c(0, .1, .2, .3)), 0)
})

test_that("Fisher's method works with at least one negative or >1 input.", {
  expect_equal(fisher(c(-.1, .1, .2, .3, 1.1)), 0.1152162)
})

test_that("Fisher's method works with at least one NA input.", {
  expect_equal(fisher(c(NA, .1, .2, .3)), 0.1152162)
})

test_that("Fisher's method works with zeros and negatives/>1s combined.", {
  expect_equal(fisher(c(-.1, 0, .1, .2, .3, 1.1)), 0)
})

test_that("Fisher's method works with NAs and negatives/>1s combined.", {
  expect_equal(fisher(c(-.1, .1, .2, .3, 1.1, NA)), 0.1152162)
})

test_that("Fisher's method works with zeros and NAs combined.", {
  expect_equal(fisher(c(0, .1, .2, .3, NA)), 0)
})

test_that("Fisher's method works with NAs, zeros and negatives/>1s combined.", {
  expect_equal(fisher(c(-.1, 0, .1, .2, .3, 1.1, NA)), 0)
})