Added poistaLiianPienet
This commit is contained in:
parent
7bb6d3224b
commit
eff04b3124
4 changed files with 82 additions and 0 deletions
|
|
@ -227,4 +227,9 @@ test_that("simulateAllFreqs works as expected", {
|
|||
|
||||
test_that("computeAllFreqs2 works as expected", {
|
||||
expect_equivalent(computeAllFreqs2(10), matrix(NA, 0, 0))
|
||||
})
|
||||
|
||||
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)
|
||||
})
|
||||
Loading…
Add table
Add a link
Reference in a new issue