Translated getPopDistancesByKL (#2)

2022-02-08 14:01:02 +01:00 · 2022-02-08 14:01:02 +01:00 · c9c310d1fa
commit c9c310d1fa
parent d71bd0567a
3 changed files with 41 additions and 1 deletions
--- a/tests/testthat/test-greedyPopMix.R
+++ b/tests/testthat/test-greedyPopMix.R
@ -8,4 +8,11 @@ test_that("Auxiliary functions work properly", {
    rowsFromInd = 2
  )
  expect_equal(findOutRowsFromInd(x, y, "Diploid"), z)
+  expect_equal(
+    getPopDistancesByKL(x2),
+    list(
+      Z = matrix(c(c(1, 101:198), c(2:100), rep(0, 99)), nrow = 99, ncol = 3),
+      distances = as.matrix(rep(0, 4950))
+    )
+  )
 })