add derivatives in anticipation of new deriv capability

r-lib · Nov 2, 2023 · 3b8e979 · 3b8e979
1 parent b9003b7
commit 3b8e979
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/R/trans-numeric.R b/R/trans-numeric.R
@@ -30,7 +30,13 @@ atanh_trans <- function() {
 #' @examples
 #' plot(asinh_trans(), xlim = c(-1e2, 1e2))
 asinh_trans <- function() {
-  trans_new("asinh", asinh, inverse = sinh)
+  trans_new(
+    "asinh",
+    transform = asinh,
+    inverse = sinh,
+    d_transform = function(x) 1 / sqrt(x^2 + 1),
+    d_inverse = cosh
+  )
 }
 
 #' Box-Cox & modulus transformations