fix merge conflict

mitchelloharawild · Apr 6, 2024 · d3cef8c · d3cef8c
1 parent 036627f
commit d3cef8c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/transformed.R b/R/transformed.R
@@ -94,9 +94,9 @@ density.dist_transformed <- function(x, at, verbose = getOption('dist.verbose',
 
 #' @export
 cdf.dist_transformed <- function(x, q, ...){
-  if(!monotonic_increasing(x[["transform"]], support(x[["dist"]]))) p <- 1 - p
   p <- cdf(x[["dist"]], eval_inverse(x, q), ...)
   limits <- field(support(x), "lim")[[1]]
+  if(!monotonic_increasing(x[["transform"]], support(x[["dist"]]))) p <- 1 - p
   if (!any(is.na(limits))) {
     p[q <= limits[1]] <- 0
     p[q >= limits[2]] <- 1