Minor cleanup

ocbe-uio · May 23, 2024 · 425e772 · 425e772
1 parent 0d1d7be
commit 425e772
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/R/MADMMplasso.R b/R/MADMMplasso.R
@@ -243,7 +243,7 @@ MADMMplasso <- function(X, Z, y, alpha, my_lambda = NULL, lambda_min = 0.001, ma
       )
     }
   } else {
-    # This is triggered when parallel is FALSE and pal is 1
+    # This is triggered when parallel is FALSE and pal is TRUE
     my_values <- list()
   }
 
@@ -271,9 +271,6 @@ MADMMplasso <- function(X, Z, y, alpha, my_lambda = NULL, lambda_min = 0.001, ma
     )
   }
 
-  remove(invmat)
-  remove(my_W_hat)
-
   loop_output$obj[1] <- loop_output$obj[2]
 
   pred <- data.frame(