correct logical expr in if in extract_param

epiverse-trace · May 1, 2024 · 59be142 · 59be142
1 parent 3bb0e0d
commit 59be142
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/extract_param.R b/R/extract_param.R
@@ -101,7 +101,7 @@ extract_param <- function(type = c("percentiles", "range"),
   }
   if (identical(type, "range")) {
 
-    if (values[2] < values[1] && values[1] < values[3]) {
+    if (!(values[2] < values[1] && values[1] < values[3])) {
       stop("Distribution is ", distribution, " Values are ", values, " Type is ", type)
     }