[Seqinr-commits] r1837 - pkg/R

[noreply at r-forge.r-project.org]

Author: simonpenel
Date: 2016-04-27 15:41:12 +0200 (Wed, 27 Apr 2016)
New Revision: 1837

Modified:
   pkg/R/comp.R
Log:
 ambigous bases bug fixed in comp function (r->y, y->r) 

Modified: pkg/R/comp.R
===================================================================
--- pkg/R/comp.R	2015-01-08 14:31:44 UTC (rev 1836)
+++ pkg/R/comp.R	2016-04-27 13:41:12 UTC (rev 1837)
@@ -27,8 +27,8 @@
     result[which(seq == "v")] <- "b"
     result[which(seq == "w")] <- "w"
     result[which(seq == "n")] <- "n"    
-    result[which(seq == "y")] <- "y"
-    result[which(seq == "r")] <- "r"
+    result[which(seq == "y")] <- "r"
+    result[which(seq == "r")] <- "y"
   }
   
   # Checking for N in the sequence, thanks to Jeremy Shearman.