Added function with minimal testing

2020-01-30 12:10:49 +01:00 · 2020-01-30 12:10:49 +01:00 · 248db439dc
commit 248db439dc
parent a6508a3d85
5 changed files with 74 additions and 35 deletions
--- a/tests/testthat/test-admix1.R
+++ b/tests/testthat/test-admix1.R
@ -171,4 +171,9 @@ test_that("etsiParas works like on Matlab", {
        expected = c(7.4, 0, complex(real = 1.8563, imaginary = 3.1416)),
        tol = .0001
    )
+})
+
+test_that("computePersonalAllFreqs works like on Matlab", {
+    expect_equal(computePersonalAllFreqs(1, 1:4, c(15, 5, 10, 40), 1), 15)
+    # TODO: test with 2x2 matrix
 })