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

Added unit test

Browse source
This commit is contained in:
Waldir Leoncio 2022-02-08 14:03:41 +01:00
parent c9c310d1fa
commit 58ee8ccb92
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -7,6 +7,7 @@ test_that("Auxiliary functions work properly", {
popnames2 = matrix(c(11:13, seq(1.5, 2.5, 0.5)), 3), popnames2 = matrix(c(11:13, seq(1.5, 2.5, 0.5)), 3),
rowsFromInd = 2 rowsFromInd = 2
) )
x2 <- matrix(seq(4, 14, 2), 3)
expect_equal(findOutRowsFromInd(x, y, "Diploid"), z) expect_equal(findOutRowsFromInd(x, y, "Diploid"), z)
expect_equal( expect_equal(
getPopDistancesByKL(x2), getPopDistancesByKL(x2),