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

Added unit test file for greedyPopMix functions (#2)

Browse source
This commit is contained in:
Waldir Leoncio 2022-02-08 11:17:23 +01:00
parent 1462f6167f
commit 98cff11128
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
tests/testthat/test-greedyPopMix.R Normal file
View file

@ -0,0 +1,11 @@
context("greedyPopMix functions")
test_that("Auxiliary functions work properly", {
x <- matrix(11:16, 3)
y <- matrix(2:7, 3)
z <- list(
popnames2 = matrix(c(11:13, seq(1.5, 2.5, 0.5)), 3),
rowsFromInd = 2
)
expect_equal(findOutRowsFromInd(x, y, "Diploid"), z)
})