max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Added test unit for handlePopData()

Browse source
This commit is contained in:
Waldir Leoncio 2022-04-12 15:47:22 +02:00
parent 03db7f4124
commit 40f2b3f07a
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
tests/testthat/test-greedyPopMix.R
View file

@ -16,4 +16,14 @@ test_that("Auxiliary functions work properly", {
distances = as.matrix(rep(0, 4950)) 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)
}) })