2020-05-20 15:34:40 +02:00
|
|
|
#' @title Clustering of individuals
|
2021-09-03 08:43:37 +02:00
|
|
|
#' @param data data file
|
|
|
|
|
#' @param format Format of the data c("FASTA", "VCF" ,"SAM", or "GenePop")
|
2020-06-24 11:48:23 +02:00
|
|
|
#' @importFrom utils read.delim
|
2020-05-20 15:34:40 +02:00
|
|
|
#' @export
|
2021-09-03 08:43:37 +02:00
|
|
|
greedyMix <- function(data, format) {
|
|
|
|
|
format <- tolower(format)
|
|
|
|
|
if (format == "fasta") {
|
|
|
|
|
out <- load_fasta(data)
|
|
|
|
|
} else if (format == "vcf") {
|
|
|
|
|
stop("VCF files not yet supported." )
|
|
|
|
|
# TODO #16: implement load_vcf()
|
|
|
|
|
} else if (format == "sam") {
|
|
|
|
|
stop("SAM files not yet supported." )
|
|
|
|
|
# TODO #16: implement load_sam()
|
|
|
|
|
} else if(format == "genepop") {
|
|
|
|
|
# TODO #16: implement load_genepop()
|
|
|
|
|
stop("GenePop files not yet supported." )
|
|
|
|
|
} else {
|
|
|
|
|
stop("Format not supported.")
|
|
|
|
|
}
|
|
|
|
|
return(out)
|
|
|
|
|
}
|
