faster nj()!!!

[ape.git] / R / nj.R

diff --git a/R/nj.R b/R/nj.R
index 6f60d8ec8b7d9bd53c16d983f2850e40289d80bf..2155f6b1f77d02a997558dc8adb44b2777b53e76 100644 (file)
--- a/R/nj.R
+++ b/R/nj.R
@@ -15,7 +15,7 @@ nj <- function(X)
     if (is.null(labels)) labels <- as.character(1:N)
     ans <- .C("nj", as.double(X), as.integer(N), integer(2*N - 3),
               integer(2*N - 3), double(2*N - 3),
-              DUP = FALSE, NAOK = TRUE, PACKAGE = "apex")
+              DUP = FALSE, NAOK = TRUE, PACKAGE = "ape")
     obj <- list(edge = cbind(ans[[3]], ans[[4]]), edge.length = ans[[5]],
                 tip.label = labels, Nnode = N - 2L)
     class(obj) <- "phylo"