From 9b1cf810a3528f79772faa64ec68be68db5064f7 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Wed, 13 Apr 2022 08:59:07 +0200
Subject: [PATCH] Fixing test expectation

---
 tests/testthat/test-greedyPopMix.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/testthat/test-greedyPopMix.R b/tests/testthat/test-greedyPopMix.R
index cfe441c..873ae1e 100644
--- a/tests/testthat/test-greedyPopMix.R
+++ b/tests/testthat/test-greedyPopMix.R
@@ -26,9 +26,9 @@ test_that("Auxiliary functions work properly", {
     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),
+    noalle      = matrix(c(3, 3), 1),
     adjprior    = matrix(rep(3/9, 6), 3),
     priorTerm   = 5.9125
   )
-  expect_equal(handlePopData(x3), y3)
+  expect_equal(handlePopData(x3), y3, tol = 1e-4)
 })