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

Translated BAPS::noIndex into R

Browse source
This commit is contained in:
Waldir Leoncio 2020-03-03 14:30:39 +01:00
parent 17282c423a
commit 8ecc59a4e6
4 changed files with 53 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -232,4 +232,19 @@ test_that("computeAllFreqs2 works as expected", {
test_that("poistaLiianPienet works as expected", {
expect_equal(poistaLiianPienet(100, matrix(1:4, 2), 0), 100)
expect_equal(poistaLiianPienet(100, matrix(1:4, 2), -5), 100)
})
test_that("noIndex works properly", {
abcd_vec <- letters[1:4]
abcd_mat <- matrix(abcd_vec, 2)
abcdef_mat <- matrix(letters[1:6], 2)
efg_vec <- letters[5:7]
expect_equal(noIndex(abcd_vec, 1:6), abcd_vec)
expect_equal(noIndex(abcd_vec, 1:3), abcd_vec[-4])
expect_equal(noIndex(abcd_vec, 1:2), abcd_vec)
expect_equal(noIndex(abcd_vec, efg_vec), abcd_vec[-4])
expect_equal(noIndex(abcd_mat, 1), abcd_mat[, 1])
expect_equal(noIndex(abcd_mat, 2), abcd_mat[, 1])
expect_equal(noIndex(abcdef_mat, 1:2), abcdef_mat[, 1:2])
expect_equal(noIndex(abcdef_mat, abcd_mat), abcdef_mat[, 1:2])
})