force rather than default probability domain = c(0, 1)

r-lib · Nov 2, 2023 · b9003b7 · b9003b7
1 parent 18c70f2
commit b9003b7
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/trans-numeric.R b/R/trans-numeric.R
@@ -284,15 +284,15 @@ pseudo_log_trans <- function(sigma = 1, base = exp(1)) {
 #' @examples
 #' plot(logit_trans(), xlim = c(0, 1))
 #' plot(probit_trans(), xlim = c(0, 1))
-probability_trans <- function(distribution, ..., domain = c(0, 1)) {
+probability_trans <- function(distribution, ...) {
   qfun <- match.fun(paste0("q", distribution))
   pfun <- match.fun(paste0("p", distribution))
 
   trans_new(
     paste0("prob-", distribution),
     function(x) qfun(x, ...),
     function(x) pfun(x, ...),
-    domain = domain
+    domain = c(0, 1)
   )
 }
 #' @export