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

Refactored laskeMuutokset4() as an R6 method

Browse source
This commit is contained in:
Waldir Leoncio 2022-08-25 12:54:55 +02:00
parent 06dd1a74ee
commit 1667682c5e
8 changed files with 113 additions and 58 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -147,9 +147,9 @@ test_that("suoritaMuutos works like on Matlab", {
})
test_that("laskeMuutokset4 works like on Matlab", {
mx1 <- t(c(.4, 7))
x <- admix1_muutokset$new()
expect_equivalent(
object = laskeMuutokset4(2, mx1, c(8, 2), 3),
object = x$laskeMuutokset4(2, t(c(.4, 7)), c(8, 2), 3),
expected = t(c(0, .3742)),
tol = .0001
)