Added test unit for handlePopData()

2022-04-12 15:47:22 +02:00 · 2022-04-12 15:47:22 +02:00 · 40f2b3f07a
commit 40f2b3f07a
parent 03db7f4124
1 changed files with 10 additions and 0 deletions
--- a/tests/testthat/test-greedyPopMix.R
+++ b/tests/testthat/test-greedyPopMix.R
@ -16,4 +16,14 @@ test_that("Auxiliary functions work properly", {
      distances = as.matrix(rep(0, 4950))
    )
  )
+  x3 <- matrix(c(9, 4, 1, 8, 5, 2, 1, 2, 3), 3)
+  y3 <- list(
+    newData = matrix(c(3:1, 3:1, 1:3), 3),
+    rows = matrix(c(1:3, 1:3), 3),
+    alleleCodes = matrix(c(1, 4, 9, 2, 5, 8), 3),
+    noalle = c(3, 3),
+    adjprior = matrix(rep(3/9, 6), 3),
+    priorTerm = 5.9125
+  )
+  expect_equal(handlePopData(x3), y3)
 })