From 7d2096855edcc196629c1c7a9983a56ec6addd1e Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 24 Apr 2015 02:21:04 +0200 Subject: Add a geometric mean function --- pkg/tests/testthat/test_geomean.R | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 pkg/tests/testthat/test_geomean.R (limited to 'pkg/tests/testthat/test_geomean.R') diff --git a/pkg/tests/testthat/test_geomean.R b/pkg/tests/testthat/test_geomean.R new file mode 100644 index 0000000..0cc3416 --- /dev/null +++ b/pkg/tests/testthat/test_geomean.R @@ -0,0 +1,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_error(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_error(geomean(c(1, -3, NA, 9)), "positive") +}) -- cgit v1.2.1