Update R/epidist_utils.R

Co-authored-by: Hugo Gruson <Bisaloo@users.noreply.github.com>
epiverse-trace · May 31, 2023 · 41c1ee4 · 41c1ee4
1 parent 34290f8
commit 41c1ee4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/epidist_utils.R b/R/epidist_utils.R
@@ -509,7 +509,7 @@ is_epidist_params <- function(prob_dist_params) {
   # check whether any combinations are valid
   matches <- lapply(
     possible_params,
-    function(x, y) x == y,
+    setequal,
     y = names(prob_dist_params)
   )
   is_valid_params <- any(unlist(lapply(matches, all)))