Adjusted unit tests (#53)

ocbe-uio · Aug 20, 2024 · 41cff7d · 41cff7d
1 parent d165117
commit 41cff7d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/tests/testthat/test-MADMMplasso.R b/tests/testthat/test-MADMMplasso.R
@@ -85,7 +85,7 @@ fit_C <- MADMMplasso(
   alpha = alpha, my_lambda = matrix(rep(0.2, ncol(y)), 1),
   lambda_min = 0.001, max_it = 5000, e.abs = e.abs, e.rel = e.rel, maxgrid = nlambda,
   nlambda = nlambda, rho = 5, tree = TT, my_print = FALSE, alph = 1,
-  pal = TRUE, gg = gg1, tol = tol, cl = 6
+  pal = TRUE, gg = gg1, tol = tol, cl = 1
 )
 set.seed(9356219)
 fit_R <- suppressWarnings(
@@ -95,7 +95,7 @@ fit_R <- suppressWarnings(
       alpha = alpha, my_lambda = matrix(rep(0.2, ncol(y)), 1),
       lambda_min = 0.001, max_it = 5000, e.abs = e.abs, e.rel = e.rel, maxgrid = nlambda,
       nlambda = nlambda, rho = 5, tree = TT, my_print = FALSE, alph = 1,
-      pal = TRUE, gg = gg1, tol = tol, cl = 6, legacy = TRUE
+      pal = TRUE, gg = gg1, tol = tol, cl = 1, legacy = TRUE
     )
   )
 )

diff --git a/tests/testthat/test-issue_53.R b/tests/testthat/test-issue_53.R
@@ -85,5 +85,5 @@ fit_C <- MADMMplasso(
   alpha = alpha, my_lambda = NULL,
   lambda_min = 0.001, max_it = 5000, e.abs = e.abs, e.rel = e.rel, maxgrid = nlambda,
   nlambda = nlambda, rho = 5, tree = TT, my_print = FALSE, alph = 1,
-  pal = FALSE, gg = gg1, tol = tol, legacy = TRUE, cl = 3L
+  pal = FALSE, gg = gg1, tol = tol, legacy = FALSE, cl = 3L
 )