domain for log1p

r-lib · Nov 1, 2023 · 5d0a5d9 · 5d0a5d9
1 parent 1ae51df
commit 5d0a5d9
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/trans-numeric.R b/R/trans-numeric.R
@@ -247,7 +247,10 @@ log2_trans <- function() {
 #' @rdname log_trans
 #' @export
 log1p_trans <- function() {
-  trans_new("log1p", "log1p", "expm1")
+  trans_new(
+    "log1p", "log1p", "expm1",
+    domain = c(-1 + .Machine$double.eps, Inf)
+  )
 }
 
 #' @rdname log_trans