Added unit test

2022-02-08 14:03:41 +01:00 · 2022-02-08 14:03:41 +01:00 · 58ee8ccb92
commit 58ee8ccb92
parent c9c310d1fa
1 changed files with 1 additions and 0 deletions
--- 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),