a few changes....

[ape.git] / R / DNA.R

diff --git a/R/DNA.R b/R/DNA.R
index 1d0ce795037c98faf042197af5f572bb1de4d5fa..31ef4bb5988916a26a1346ecaf8d585c16d182d5 100644 (file)
--- a/R/DNA.R
+++ b/R/DNA.R
@@ -481,7 +481,7 @@ where <- function(x, pattern)
         s <- as.integer(length(x))
         if (s < p) stop("sequence shorter than the pattern")
         ans <- .C("where", x, pat, s, p, integer(s), 0L,
-                  DUP = FALSE, NAOK = TRUE, PACKAGE = "apex")
+                  DUP = FALSE, NAOK = TRUE, PACKAGE = "ape")
         n <- ans[[6]]
         if (n) ans[[5]][seq_len(n)] - p + 2L else integer()
     }