X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fdist.topo.R;h=f82dd65193695e63301d706ac71bd63395212a5c;hb=3ad385892d75db5c646c92f0f631ae9c5e3da4f6;hp=1248c4983d4ef8126d90bd11fd2aa84ee50dc19a;hpb=507aa18c4e3f9312efcb07b90766df1158a39402;p=ape.git

diff --git a/R/dist.topo.R b/R/dist.topo.R
index 1248c49..f82dd65 100644
--- a/R/dist.topo.R
+++ b/R/dist.topo.R
@@ -11,7 +11,7 @@
 dist.topo <- function(x, y, method = "PH85")
 {
     if (method == "BHV01" && (is.null(x$edge.length) || is.null(y$edge.length)))
-      stop("trees must have branch lengths for Billera et al.'s distance.")
+        stop("trees must have branch lengths for Billera et al.'s distance.")
     n <- length(x$tip.label)
     bp1 <- .Call("bipartition", x$edge, n, x$Nnode, PACKAGE = "ape")
     bp1 <- lapply(bp1, function(xx) sort(x$tip.label[xx]))