[adegenet-commits] r248 - pkg/R

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

Author: jombart
Date: 2009-01-26 14:03:54 +0100 (Mon, 26 Jan 2009)
New Revision: 248

Modified:
   pkg/R/sequences.R
Log:
Fix.


Modified: pkg/R/sequences.R
===================================================================
--- pkg/R/sequences.R	2009-01-26 13:02:33 UTC (rev 247)
+++ pkg/R/sequences.R	2009-01-26 13:03:54 UTC (rev 248)
@@ -38,7 +38,7 @@
         if(is.null(exp.char)) stop("both exp.char and na.char are NULL")
         temp <- paste(exp.char, collapse="", sep="")
         if(any(exp.char=="-")) {
-            temp <- paste("-",temp, sep="") # string '-' must start the regexp
+            temp <- paste("-",temp, sep="") # string '-' must begin the regexp
         }
         temp <- paste("[^", temp, "]", sep="") # anything but the expected is NA
         x <- gsub(temp,NA,x)