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

Added greedyMix support for VCF (closes #17)

Browse source
This commit is contained in:
Waldir Leoncio 2021-09-03 11:10:06 +02:00
parent f44a71d97b
commit 3fd15086af
3 changed files with 18 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -39,13 +39,19 @@ context("Opening files on greedyMix")
df_fasta <- greedyMix(
data = paste(path_inst, "FASTA_clustering_haploid.fasta", sep="/"),
format ="fasta"
format = "FASTA"
)
df_vcf <- greedyMix(
data = paste(path_inst, "vcf_example.vcf", sep="/"),
format = "VCF",
verbose = FALSE
)
# TODO #17: add example reading VCF
# TODO #18: add example reading SAM
# TODO #19: add example reading Genpop
test_that("Files are imported correctly", {
expect_equal(dim(df_fasta), c(5, 99))
expect_equal(dim(df_vcf), c(variants = 2, fix_cols = 8, gt_cols = 3))
})
context("Linkage")