Bug, object not defined

iflint1 · Oct 29, 2023 · 783409e · 783409e
1 parent 30504bf
commit 783409e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/compute_A2_plus_A3.R b/R/compute_A2_plus_A3.R
@@ -68,10 +68,10 @@ compute_A2_plus_A3 <- function(..., list, nthreads = NULL, debug = FALSE, npoint
       colnames(tmp) <- mat@Dimnames[[2]]
       tmp
     }
-    if(!inherits(fit$data_list$regressors, "Matrix")) {
+    if(!inherits(fits[[1]]$data_list$regressors, "Matrix")) {
       stop("Error while converting regression matrix to base::matrix format.")
     } else {
-      regressors <- as_matrix(fit$data_list$regressors)
+      regressors <- as_matrix(fits[[1]]$data_list$regressors)
     }
   }