From 58ee8ccb920649502c01677dd23888168816df43 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Tue, 8 Feb 2022 14:03:41 +0100
Subject: [PATCH] Added unit test

---
 tests/testthat/test-greedyPopMix.R | 1 +
 1 file changed, 1 insertion(+)

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),