Added greedyMix support for VCF (closes #17)

R/greedyMix.R

@@ -1,15 +1,16 @@
 #' @title Clustering of individuals
 #' @param data data file
 #' @param format Format of the data c("FASTA", "VCF" ,"SAM", or "GenePop")
+#' @param verbose if \code{TRUE}, prints extra output information
 #' @importFrom utils read.delim
 #' @export
-greedyMix <- function(data, format) {
+greedyMix <- function(data, format, verbose = TRUE) {
 	format <- tolower(format)
 	if (format == "fasta") {
 		out <- load_fasta(data)
 	} else if (format == "vcf") {
-		stop("VCF files not yet supported." )
 		# TODO #17: implement load_vcf()
+		out <- vcfR::read.vcfR(data, verbose = verbose)
 	} else if (format == "sam") {
 		stop("SAM files not yet supported." )
 		# TODO #18: implement load_sam()