Fix coef$max_var condition

franzmohr · Jun 10, 2023 · d5f7a09 · d5f7a09
1 parent 32b56bf
commit d5f7a09
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/add_priors.gvarsubmodels.R b/R/add_priors.gvarsubmodels.R
@@ -547,7 +547,7 @@ add_priors.gvarsubmodels <- function(object, ...,
 
         # Restrict prior variances
         if (!is.null(coef[["max_var"]])) {
-          if (any(stats::na.omit(V) > coef[["max_var"]])) {
+          if (any(stats::na.omit(c(V)) > coef[["max_var"]])) {
             V[which(V > coef[["max_var"]])] <- coef[["max_var"]]
           }
         }

diff --git a/R/add_priors.gvecsubmodels.R b/R/add_priors.gvecsubmodels.R
@@ -568,7 +568,7 @@ add_priors.gvecsubmodels <- function(object, ...,
 
           # Restrict prior variances
           if (!is.null(coef[["max_var"]])) {
-            if (any(stats::na.omit(V) > coef[["max_var"]])) {
+            if (any(stats::na.omit(c(V)) > coef[["max_var"]])) {
               V[which(V > coef[["max_var"]])] <- coef[["max_var"]]
             }
           }