## This file is part of the R-package `ape'.
## See the file ../COPYING for licensing issues.
-dist.nodes <- function(phy)
+dist.nodes <- function(x)
{
- phy <- reorder(phy)
- n <- Ntip(phy)
- m <- phy$Nnode
+ x <- reorder(x) # required for the C code
+ n <- Ntip(x)
+ m <- x$Nnode
+ nm <- n + m
d <- .C("dist_nodes", as.integer(n), as.integer(m),
- as.integer(phy$edge[, 1] - 1L), as.integer(phy$edge[, 2] - 1L),
- as.double(phy$edge.length), as.integer(Nedge(phy)),
+ as.integer(x$edge[, 1] - 1L), as.integer(x$edge[, 2] - 1L),
+ as.double(x$edge.length), as.integer(Nedge(x)),
double(nm * nm), DUP = FALSE, NAOK = TRUE,
PACKAGE = "ape")[[7]]
- nm <- n + m
dim(d) <- c(nm, nm)
dimnames(d) <- list(1:nm, 1:nm)
d