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