Fixed regression on if statement (#17)

Regression introduced by me on 072b64a.
ocbe-uio · Jan 26, 2024 · bb7b6e4 · bb7b6e4
1 parent 930790e
commit bb7b6e4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/MADMMplasso.R b/R/MADMMplasso.R
@@ -210,7 +210,7 @@ MADMMplasso <- function(X, Z, y, alpha, my_lambda = NULL, lambda_min = 0.001, ma
       )
     }
     parallel::stopCluster(cl)
-  } else if (parallel && pal == 0) {
+  } else if (!parallel && pal == 0) {
     my_values <- lapply(
       seq_len(nlambda),
       function(g) {
@@ -253,7 +253,7 @@ MADMMplasso <- function(X, Z, y, alpha, my_lambda = NULL, lambda_min = 0.001, ma
       theta0 <- my_values[hh, ]$theta0 ### iteration
       beta_hat <- my_values[hh, ]$beta_hat
       y_hat <- my_values[hh, ]$y_hat
-    } else if (parallel && pal == 0) {
+    } else if (!parallel && pal == 0) {
       beta <- my_values[[hh]]$beta
       theta <- my_values[[hh]]$theta
       my_obj[[hh]] <- list(my_values[[hh]]$obj)