Merge pull request #37 from ocbe-uio/issue-36

Always printing fold number
ocbe-uio · Mar 11, 2024 · 059f5b0 · 059f5b0
2 parents 9896eeb + 31843bc
commit 059f5b0
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: MADMMplasso
 Title: Multi Variate Multi Response 'ADMM' with Interaction Effects
-Version: 0.0.0.9015
+Version: 0.0.0.9016
 Authors@R:
     c(
         person(

diff --git a/R/cv_MADMMplasso.R b/R/cv_MADMMplasso.R
@@ -25,9 +25,7 @@ cv_MADMMplasso <- function(fit, nfolds, X, Z, y, alpha = 0.5, lambda = fit$Lambd
   nfolds <- length(table(foldid))
 
   for (ii in 1:nfolds) {
-    if (my_print) {
-      print(c("fold,", ii))
-    }
+    print(c("fold,", ii))
     oo <- foldid == ii
 
     ggg[[ii]] <- MADMMplasso(X = X[!oo, , drop = FALSE], Z = Z[!oo, , drop = FALSE], y = y[!oo, , drop = FALSE], alpha = alpha, my_lambda = lambda, lambda_min = 0.01, max_it = max_it, e.abs = e.abs, e.rel = e.rel, nlambda = length(lambda[, 1]), rho = rho, tree = TT, my_print = my_print, alph = alph, parallel = parallel, pal = pal, gg = gg, tol = tol, cl = cl, legacy)