Mercurial > repos > dereeper > sniplay

diff MDSplot/MDSbasedOnIBSmatrix.pl @ 8:6bf69b40365c draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author dereeper
date Wed, 07 Feb 2018 21:37:59 -0500
parents 3e19d0dfcf3e
children 31c23d943c29
line wrap: on
line diff
--- a/MDSplot/MDSbasedOnIBSmatrix.pl	Wed Jun 15 09:35:15 2016 -0400
+++ b/MDSplot/MDSbasedOnIBSmatrix.pl	Wed Feb 07 21:37:59 2018 -0500
@@ -1,7 +1,6 @@
 #!/usr/bin/perl
 
 use strict;
-use Switch;
 use Getopt::Long;
 use Bio::SeqIO;
 
@@ -63,6 +62,7 @@
 		{
 			my $ind = $i[1];
 			my $pop = "Pop1";
+			#if ($ind=~/^d/){$pop="Pop2";}
 			if ($populations{$ind})
 			{
 				$pop = $populations{$ind};
@@ -73,6 +73,7 @@
 		{
 			my $ind = $i[0];
 			my $pop = "Pop1";
+			#if ($ind=~/^d/){$pop="Pop2";}
 			if ($populations{$ind})
 			{
 				$pop = $populations{$ind};