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

Adjusted behavior to benchmark

Browse source
This commit is contained in:
Waldir Leoncio 2020-01-30 17:52:20 +01:00
parent c9c9b7cb26
commit f6768c67bc
3 changed files with 22 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -211,4 +211,14 @@ test_that("simulateIndividuals works like on Matlab", {
object = sum(simulateIndividuals(3, 3, 2, 1, .5) == 1),
expected = 6
)
})
test_that("simulateAllFreqs works as expected", {
empty_mt <- matrix(NA, 0, 0)
expect_equivalent(suppressWarnings(simulateAllFreqs(3)), empty_mt)
expect_equivalent(suppressWarnings(simulateAllFreqs(3:5)), empty_mt)
expect_equivalent(
object = suppressWarnings(simulateAllFreqs(matrix(1:4, 2))),
expected = empty_mt
)
})