Fixing test expectation

This commit is contained in:
Waldir Leoncio 2022-04-13 08:59:07 +02:00
parent f81a078365
commit 9b1cf810a3

View file

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