diff --git a/DESCRIPTION b/DESCRIPTION index befa00d..5a0ecea 100644 --- 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 index a991907..f46202e 100644 --- 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)