Check that x is below 0

epiforecasts · Nov 6, 2023 · f7d27a5 · f7d27a5
1 parent ffcdfa4
commit f7d27a5
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 3 deletions.
diff --git a/R/utils.r b/R/utils.r
@@ -6,6 +6,9 @@
 #' @author Sebastian Funk
 #' @keywords internal
 complementary_logprob <- function(x) {
+  checkmate::assert_numeric(
+    x, lower = -Inf, upper = 0
+  )
   tryCatch(log1p(-sum(exp(x))), error = function(e) -Inf)
 }
 

diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R
@@ -14,7 +14,13 @@ test_that("Errors are thrown", {
   )
 })
 
-test_that("Warnings are thrown", {
-  expect_warning(complementary_logprob(0.1), "NaNs produced")
-  expect_warning(complementary_logprob(Inf), "NaNs produced")
+test_that("Errors are thrown", {
+  expect_error(
+    complementary_logprob(0.1),
+    "is not <= 0"
+  )
+  expect_error(
+    complementary_logprob(Inf),
+    "is not <= 0"
+  )
 })