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

Several fixes to code to pass unit tests

Browse source
This commit is contained in:
Waldir Leoncio 2021-08-23 08:34:28 +02:00
parent ff56213120
commit 04a66aa2c1
10 changed files with 100 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

23
tests/testthat/test-greedyMix.R
View file

@ -1,13 +1,17 @@
context("Auxiliary functions to greedyMix")
# Defining the relative path to current inst ------------- #
if (interactive()) {
path_inst <- "../../inst/ext/"
} else {
path_inst <- "inst/ext/"
}
baps_diploid <- read.delim(
"inst/ext/ExamplesDataFormatting/Example data in BAPS format for clustering of diploid individuals.txt",
file = file.path(path_inst, "BAPS_format_clustering_diploid.txt"),
sep = " ",
header = FALSE
)
handleData(baps_diploid)$newData
test_that("handleData works as expected", {
data_obs <- handleData(baps_diploid)$newData
data_exp <- matrix(
@ -31,12 +35,13 @@ test_that("handleData works as expected", {
context("Opening files on greedyMix")
# TODO: needs #12 to be fixed before this can be done without user intervention
greedyMix(
tietue = "inst/ext/ExamplesDataFormatting/Example data in BAPS format for clustering of diploid individuals.txt",
format = "BAPS",
savePreProcessed = FALSE
) # Upper bounds 100 100
# # TODO: needs #12 to be fixed before this can be done without user intervention
# greedyMix(
# tietue = "inst/ext/ExamplesDataFormatting/Example data in BAPS format for clustering of diploid individuals.txt",
# format = "BAPS",
# savePreProcessed = FALSE
# ) # Upper bounds 100 100
# TODO: replace with load_fasta()
context("Linkage")