[Seqinr-commits] r1751 - pkg/R

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

Author: simonpenel
Date: 2010-09-10 11:23:48 +0200 (Fri, 10 Sep 2010)
New Revision: 1751

Modified:
   pkg/R/comp.R
Log:
Adding y and r in the list of bases in  the comp function - Thanks to Darren Obbard


Modified: pkg/R/comp.R
===================================================================
--- pkg/R/comp.R	2010-08-27 07:59:33 UTC (rev 1750)
+++ pkg/R/comp.R	2010-09-10 09:23:48 UTC (rev 1751)
@@ -26,7 +26,9 @@
     result[which(seq == "s")] <- "s"
     result[which(seq == "v")] <- "b"
     result[which(seq == "w")] <- "w"
-    result[which(seq == "n")] <- "n"
+    result[which(seq == "n")] <- "n"    
+    result[which(seq == "y")] <- "y"
+    result[which(seq == "r")] <- "r"
   }
   if(isUpper && !forceToLower){
   	  result <- toupper(result)