From b9003b748ebcab45717740d5f27f046b4072cf69 Mon Sep 17 00:00:00 2001 From: "Carl A. B. Pearson" Date: Thu, 2 Nov 2023 16:09:07 +0000 Subject: [PATCH] force rather than default probability domain = c(0, 1) --- R/trans-numeric.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/trans-numeric.R b/R/trans-numeric.R index 64f35b6b..bc2b6a61 100644 --- a/R/trans-numeric.R +++ b/R/trans-numeric.R @@ -284,7 +284,7 @@ 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)) @@ -292,7 +292,7 @@ probability_trans <- function(distribution, ..., domain = c(0, 1)) { paste0("prob-", distribution), function(x) qfun(x, ...), function(x) pfun(x, ...), - domain = domain + domain = c(0, 1) ) } #' @export