Require monotonic_increasing to return TRUE or FALSE

mitchelloharawild · Sep 17, 2024 · 347deeb · 347deeb
1 parent a80c003
commit 347deeb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/transformed.R b/R/transformed.R
@@ -170,5 +170,5 @@ monotonic_increasing <- function(f, support) {
 
   # Currently assumes (without checking, #9) monotonicity of f over the domain
   x <- f(field(support, "lim")[[1]])
-  x[[2L]] > x[[1L]]
+  isTRUE(x[[2L]] > x[[1L]])
 }