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

Moved used datasets to /isnt/extdata (#25)

Browse source
This commit is contained in:
Waldir Leoncio 2023-08-09 10:54:48 +02:00
parent bb7eadd2ba
commit 687a6fb671
42 changed files with 44765 additions and 44759 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,11 +1,11 @@
context("Auxiliary functions to greedyMix")
# Defining the relative path to current inst -----------------------------------
path_inst <- system.file("ext", "", package = "rBAPS")
path_inst <- system.file("extdata", "", package = "rBAPS")
# Reading datasets -------------------------------------------------------------
baps_diploid <- read.delim(
file = paste(path_inst, "BAPS_format_clustering_diploid.txt", sep = "/"),
file = file.path(path_inst, "BAPS_format_clustering_diploid.txt"),
sep = " ",
header = FALSE
)

2
tests/testthat/test-spatialMixture.R
View file

@ -79,7 +79,7 @@ test_that("lakseKlitik() and subfunctions produce expected output", {
})
test_that("testFastaData() produces same output as on MATLAB", {
msa <- system.file("ext", "seqs.fa", package = "rBAPS")
msa <- system.file("extdata", "seqs.fa", package = "rBAPS")
test_msa <- testFastaData(msa)
expect_equal(test_msa$ninds, 515)
expect_equal(dim(test_msa$data), c(515, 745))