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

Added code and tests for simuloiAlleeli

Browse source
This commit is contained in:
Waldir Leoncio 2020-01-30 14:57:11 +01:00
parent 0bc86d8005
commit 309519dd08
5 changed files with 43 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -179,4 +179,14 @@ test_that("computePersonalAllFreqs works like on Matlab", {
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))
})
test_that("simuloiAlleeli works like on Matlab", {
# TODO: test on vector
ra1 <- array(1:12, c(2, 2, 3))
mx1 <- matrix(c(3, 5, 0, 9), 2)
mx2 <- matrix(c(3, 5, 0, 9, 5, 8), 2)
expect_equal(simuloiAlleeli(ra1, 2, 1), 1)
expect_equal(simuloiAlleeli(mx1, 1, 2), 2)
expect_equal(simuloiAlleeli(mx2, 1, 3), 1)
})