fix

easystats · Jun 12, 2024 · 2c07288 · 2c07288
1 parent 64b89df
commit 2c07288
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/compute_variances.R b/R/compute_variances.R
@@ -556,8 +556,8 @@
     # --------------------------
 
     # we need this to adjust for "cbind()" outcomes
-    resp_value <- get_data(x, source = "frame")[, find_response(x)]
-    if (!is.null(ncol(resp_value)) && ncol(resp_value) > 1) {
+    resp_value <- .safe(get_data(x, source = "frame")[, find_response(x)])
+    if (!is.null(resp_value) && !is.null(ncol(resp_value)) && ncol(resp_value) > 1) {
       y_factor <- mean(rowSums(resp_value, na.rm = TRUE))
     } else {
       y_factor <- 1