From 3793b5d82153b5087d6022dc8a8c1e5f0fc079b3 Mon Sep 17 00:00:00 2001
From: Theophilus Quachie Asenso <85598983+Theo-qua@users.noreply.github.com>
Date: Tue, 20 Feb 2024 09:34:18 +0100
Subject: [PATCH] Update MADMMplasso.R

---
 R/MADMMplasso.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/MADMMplasso.R b/R/MADMMplasso.R
index a411365..9715cee 100644
--- a/R/MADMMplasso.R
+++ b/R/MADMMplasso.R
@@ -50,7 +50,7 @@
 
 #' @example inst/examples/MADMMplasso_example.R
 #' @export
-MADMMplasso <- function(X, Z, y, alpha, my_lambda = NULL, lambda_min = 0.001, max_it = 50000, e.abs = 1E-3, e.rel = 1E-3, maxgrid, nlambda, rho = 5, my_print = FALSE, alph = 1.8, tree, parallel = TRUE, pal = 0, gg = NULL, tol = 1E-4, cl = 4,legacy=FALSE) {
+MADMMplasso <- function(X, Z, y, alpha, my_lambda = NULL, lambda_min = 0.001, max_it = 50000, e.abs = 1E-3, e.rel = 1E-3, maxgrid, nlambda, rho = 5, my_print = FALSE, alph = 1.8, tree, parallel = TRUE, pal = 0, gg = NULL, tol = 1E-4, cl = 4, legacy=FALSE) {
   N <- nrow(X)
 
   p <- ncol(X)