# HG changeset patch
# User greg
# Date 1544027509 18000
# Node ID 6c93244a36e2f136162f9214110bd98b3d03a4da
# Parent  8f2f346a5e1ca1f681edef7b823136a83185a069
Uploaded

diff -r 8f2f346a5e1c -r 6c93244a36e2 multilocus_genotype.R
--- a/multilocus_genotype.R	Tue Dec 04 13:44:12 2018 -0500
+++ b/multilocus_genotype.R	Wed Dec 05 11:31:49 2018 -0500
@@ -77,7 +77,7 @@
 gind <- new("genind", (as.matrix(gl)));
 
 # Add population information to the genind object.
-poptab <- read.table(opt$input_pop_info, check.names=FALSE, header=F, na.strings=c("", "NA"), stringsAsFactors = FALSE);
+poptab <- read.table(opt$input_pop_info, check.names=FALSE, header=F, na.strings=c("", "NA"), stringsAsFactors=FALSE, sep="\t");
 colnames(poptab) <- c("row_id", "affy_id", "user_specimen_id", "region");
 gind@pop <- as.factor(poptab$region);