X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fnj.R;h=2155f6b1f77d02a997558dc8adb44b2777b53e76;hb=01fef1c23b7a8c96d003f14d82ba8a3d61d2a079;hp=6f60d8ec8b7d9bd53c16d983f2850e40289d80bf;hpb=100e0d086372a87bc2506873bdf86d3fcdda9922;p=ape.git

diff --git a/R/nj.R b/R/nj.R
index 6f60d8e..2155f6b 100644
--- 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"