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

Added more tests

Browse source
This commit is contained in:
Waldir Leoncio 2020-01-30 13:19:43 +01:00
parent a4d6ba082b
commit 7e7a997ba9
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
tests/testthat/test-admix1.R
View file

@ -175,5 +175,8 @@ test_that("etsiParas works like on Matlab", {
test_that("computePersonalAllFreqs works like on Matlab", {
expect_equal(computePersonalAllFreqs(1, 1:4, c(15, 5, 10, 40), 1), 15)
# TODO: test with 2x2 matrix
mx <- matrix(c(15, 10, 5, 40), 2)
expect_equal(computePersonalAllFreqs(1, 1:4, mx, 1), c(15, 40))
expect_equal(computePersonalAllFreqs(1, 1:3, mx, 1), c(15, 40))
expect_equal(computePersonalAllFreqs(1, 1:2, mx, 1), c(15, 40))
})