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

Implemented simulateIndividuals

Browse source
This commit is contained in:
Waldir Leoncio 2020-01-30 16:20:36 +01:00
parent e645d00fca
commit 2e8ad9a89d
5 changed files with 60 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -189,4 +189,24 @@ test_that("simuloiAlleeli works like on Matlab", {
expect_equal(simuloiAlleeli(ra1, 2, 1), 1)
expect_equal(simuloiAlleeli(mx1, 1, 2), 2)
expect_equal(simuloiAlleeli(mx2, 1, 3), 1)
})
test_that("simulateIndividuals works like on Matlab", {
expect_equal(
object = simulateIndividuals(1, 3, 2, 0, .1),
expected = matrix(rep(-999, 3), 3)
)
expect_equal(
object = simulateIndividuals(5, 3, 1:3, 4, 0),
expected = matrix(rep(-999, 15 * 3), 15)
)
expect_equal(
object = simulateIndividuals(3, 3, 2, 1, 1),
expected = matrix(rep(1, 9), 9)
)
set.seed(2)
expect_equal(
object = sum(simulateIndividuals(3, 3, 2, 1, .5) == 1),
expected = 6
)
})