diff --git a/tests/testthat/test-greedyPopMix.R b/tests/testthat/test-greedyPopMix.R index c54b2a1..e3d79b2 100644 --- a/tests/testthat/test-greedyPopMix.R +++ b/tests/testthat/test-greedyPopMix.R @@ -7,6 +7,7 @@ test_that("Auxiliary functions work properly", { popnames2 = matrix(c(11:13, seq(1.5, 2.5, 0.5)), 3), rowsFromInd = 2 ) + x2 <- matrix(seq(4, 14, 2), 3) expect_equal(findOutRowsFromInd(x, y, "Diploid"), z) expect_equal( getPopDistancesByKL(x2),