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

Translated function, added unit tests

Browse source
This commit is contained in:
Waldir Leoncio 2020-01-14 12:09:27 +01:00
parent 3bd031515b
commit 4a7c6f6a7a
6 changed files with 50 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -107,4 +107,14 @@ test_that("computeRows behaves like on Matlab", {
object = computeRows(3, Z, 10),
expected = matrix(rep(-26:-24, 10))
)
})
test_that("computeIndLogml works like on Matlab", {
expect_equivalent(computeIndLogml(10, 1), 2.3026, tol = .0001)
expect_equivalent(computeIndLogml(0, 1), -Inf)
expect_equivalent(computeIndLogml(1, 0), -Inf)
expect_equivalent(computeIndLogml(0, 0), -Inf)
expect_equivalent(computeIndLogml(-pi, -8), 3.2242, tol = .0001)
expect_equivalent(computeIndLogml(2:3, 2), 2.3026, tol = .0001)
expect_equivalent(computeIndLogml(matrix(8:5, 2), 100), 14.316, tol = .001)
})