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

Reorganizing tests

Browse source
This commit is contained in:
Waldir Leoncio 2022-04-12 15:50:16 +02:00
parent 40f2b3f07a
commit f81a078365
1 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tests/testthat/test-greedyPopMix.R
View file

@ -1,14 +1,17 @@
context("greedyPopMix functions")
test_that("Auxiliary functions work properly", {
# Testing findOutRowsFromInd -------------------------------------------------
x <- matrix(11:16, 3)
y <- matrix(2:7, 3)
z <- list(
popnames2 = matrix(c(11:13, seq(1.5, 2.5, 0.5)), 3),
rowsFromInd = 2
)
x2 <- matrix(seq(4, 14, 2), 3)
expect_equal(findOutRowsFromInd(x, y, "Diploid"), z)
# Testing getPopDistancesByKL ------------------------------------------------
x2 <- matrix(seq(4, 14, 2), 3)
expect_equal(
getPopDistancesByKL(x2),
list(
@ -16,6 +19,8 @@ test_that("Auxiliary functions work properly", {
distances = as.matrix(rep(0, 4950))
)
)
# Testing handlePopData ------------------------------------------------------
x3 <- matrix(c(9, 4, 1, 8, 5, 2, 1, 2, 3), 3)
y3 <- list(
newData = matrix(c(3: 1, 3: 1, 1: 3), 3),