From 347deebd53c1870ae57b83545154d3a631df7ce8 Mon Sep 17 00:00:00 2001 From: mitchelloharawild Date: Tue, 17 Sep 2024 15:33:22 +1000 Subject: [PATCH] Require monotonic_increasing to return TRUE or FALSE --- R/transformed.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/transformed.R b/R/transformed.R index bd5f96a..980b601 100755 --- 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]]) }