[Seqinr-commits] r1775 - pkg/R

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

Author: simonpenel
Date: 2013-10-04 13:44:41 +0200 (Fri, 04 Oct 2013)
New Revision: 1775

Modified:
   pkg/R/comp.R
Log:
Checking for N in the sequence, thanks to Jeremy Shearman


Modified: pkg/R/comp.R
===================================================================
--- pkg/R/comp.R	2013-05-29 15:27:16 UTC (rev 1774)
+++ pkg/R/comp.R	2013-10-04 11:44:41 UTC (rev 1775)
@@ -30,6 +30,12 @@
     result[which(seq == "y")] <- "y"
     result[which(seq == "r")] <- "r"
   }
+  
+  # Checking for N in the sequence, thanks to Jeremy Shearman. 
+  
+  result[which(seq == "n")] <- "n"	
+  
+  
   if(isUpper && !forceToLower){
   	  result <- toupper(result)
   	}