From 98b5e7a15418c1a4906a81633cb96356ed9d8c04 Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Wed, 10 Apr 2024 14:18:17 +0200 Subject: [PATCH] Added/renamed BAPS example data (#24) --- ...at_clustering_diploid.txt => BAPS_clustering_diploid.txt} | 0 inst/extdata/BAPS_clustering_haploid.txt | 5 +++++ tests/testthat/test-greedyMix.R | 2 +- 3 files changed, 6 insertions(+), 1 deletion(-) rename inst/extdata/{BAPS_format_clustering_diploid.txt => BAPS_clustering_diploid.txt} (100%) create mode 100644 inst/extdata/BAPS_clustering_haploid.txt diff --git a/inst/extdata/BAPS_format_clustering_diploid.txt b/inst/extdata/BAPS_clustering_diploid.txt similarity index 100% rename from inst/extdata/BAPS_format_clustering_diploid.txt rename to inst/extdata/BAPS_clustering_diploid.txt diff --git a/inst/extdata/BAPS_clustering_haploid.txt b/inst/extdata/BAPS_clustering_haploid.txt new file mode 100644 index 0000000..4623678 --- /dev/null +++ b/inst/extdata/BAPS_clustering_haploid.txt @@ -0,0 +1,5 @@ +88 102 56 80 100 90 118 -9 88 104 1 +80 102 54 82 102 92 116 90 86 104 2 +88 104 56 84 102 -9 120 90 88 100 3 +86 102 56 80 102 90 116 90 86 100 4 +88 102 -9 80 102 90 116 92 86 100 5 diff --git a/tests/testthat/test-greedyMix.R b/tests/testthat/test-greedyMix.R index 20380af..47cd463 100644 --- a/tests/testthat/test-greedyMix.R +++ b/tests/testthat/test-greedyMix.R @@ -5,7 +5,7 @@ path_inst <- system.file("extdata", "", package = "rBAPS") # Reading datasets ------------------------------------------------------------- baps_diploid <- read.delim( - file = file.path(path_inst, "BAPS_format_clustering_diploid.txt"), + file = file.path(path_inst, "BAPS_clustering_diploid.txt"), sep = " ", header = FALSE )