From 59be14280dd79774984b3c8bb70f083e0688e5d4 Mon Sep 17 00:00:00 2001
From: Joshua Lambert <joshua.lambert@lshtm.ac.uk>
Date: Wed, 1 May 2024 14:45:35 +0100
Subject: [PATCH] correct logical expr in if in extract_param

---
 R/extract_param.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/extract_param.R b/R/extract_param.R
index 3819d8479..d28c997f9 100644
--- 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)
     }