tests/testthat/test_geomean.R


1
2
3
4
5
6
7
8
9
10
11

library(pfm)
context("Geometric mean calculation")

test_that("The geometric mean is correctly calculated", {
  expect_equal(geomean(c(1, 3, 9)), 3)
  expect_equal(geomean(c(0, 3, 9)), 0)
  expect_equal(geomean(c(1, 3, NA, 9), na.rm = FALSE), NA)
  expect_equal(geomean(c(1, 3, NA, 9), na.rm = TRUE), 3)
  expect_error(geomean(c(1, -3, 9)), "positive")
  expect_equal(geomean(c(1, -3, NA, 9)), NA)
})