Auto-recognizing format of greedyMix() data

Works as long as there's only one period in the file path
This commit is contained in:
Waldir Leoncio 2023-09-14 11:11:37 +02:00
parent a73752364b
commit 63af25a63d

View file

@ -23,7 +23,7 @@
#' data <- system.file("extdata", "FASTA_clustering_haploid.fasta", package = "rBAPS")
#' greedyMix(data, "fasta")
greedyMix <- function(
data, format, partitionCompare = NULL, ninds = 1L, npops = 1L,
data, format = gsub("^.*\\.", "", data), partitionCompare = NULL, ninds = 1L, npops = 1L,
counts = NULL, sumcounts = NULL, max_iter = 100L, alleleCodes = NULL,
inp = NULL, popnames = NULL, fixedK = FALSE, verbose = FALSE
) {