fix na handling in vine() control checks (#266)

Co-authored-by: tnagler <thomas.nagler@tum.de>
vinecopulib · Nov 14, 2023 · c8da749 · c8da749
1 parent f9e3ddd
commit c8da749
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/tools.R b/R/tools.R
@@ -246,12 +246,12 @@ check_margin_controls <- function(data, ctrl) {
       }
     }
     if (!is.nan(ctrl$xmin[k])) {
-      if (any(data[, k] < ctrl$xmin[k])) {
+      if (any(data[, k] < ctrl$xmin[k], na.rm = TRUE)) {
         stop(msg_var, "not all data are larger than xmin.")
       }
     }
     if (!is.nan(ctrl$xmax[k])) {
-      if (any(data[, k] > ctrl$xmax[k])) {
+      if (any(data[, k] > ctrl$xmax[k], na.rm = TRUE)) {
         stop(msg_var, "not all data are samller than xmax.")
       }
     }