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

Fixed several linting issues

Browse source
This commit is contained in:
Waldir Leoncio 2022-07-28 15:47:36 +02:00
parent 66d0f0c730
commit 835ac7e6b9
28 changed files with 180 additions and 175 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -15,7 +15,7 @@ test_that("Auxiliary functions work properly", {
expect_equal(
getPopDistancesByKL(x2),
list(
Z = matrix(c(c(1, 101:198), c(2:100), rep(0, 99)), nrow = 99, ncol = 3),
Z = matrix(c(c(1, 101:198), 2:100, rep(0, 99)), nrow = 99, ncol = 3),
distances = as.matrix(rep(0, 4950))
)
)
@ -27,7 +27,7 @@ test_that("Auxiliary functions work properly", {
rows = matrix(c(1: 3, 1: 3), 3),
alleleCodes = matrix(c(1, 4, 9, 2, 5, 8), 3),
noalle = matrix(c(3, 3), 1),
adjprior = matrix(rep(3/9, 6), 3),
adjprior = matrix(rep(3 / 9, 6), 3),
priorTerm = 5.9125
)
expect_equal(handlePopData(x3), y3, tol = 1e-4)