Fix failing unit-test test.predict (on matrix contruction)

renozao · Nov 25, 2022 · 07f613f · 07f613f
1 parent b6e5ebb
commit 07f613f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-NMFclass.R b/tests/testthat/test-NMFclass.R
@@ -642,7 +642,7 @@ test_that("test.predict", {
     expect_equal(as.factor(c(1, 2, rep(3, m - 2))), res, info = mess("Return known clusters"))
     .msg <- "Random matrix"
     set.seed(.TestSeed)
-    V <- matrix(sapply(sample(n), function(i) {
+    V <- matrix(sapply(sample(n, size = m), function(i) {
         x <- rep(0, n)
         x[i] <- 1
         x