X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=man%2Ffastme.Rd;h=cd7af9e6cb72dd5c5a3e3a04fea68ec16f15590c;hb=bb212c8b0bb52b72923c0e9a6ec942b81c681a38;hp=794e6c84bc25596e59ccef4dfb4c87a5606a233b;hpb=f3426364b40c7c0e6aadf6ea2690716425abdfc9;p=ape.git

diff --git a/man/fastme.Rd b/man/fastme.Rd
index 794e6c8..cd7af9e 100644
--- a/man/fastme.Rd
+++ b/man/fastme.Rd
@@ -1,4 +1,5 @@
 \name{FastME}
+\alias{FastME}
 \alias{fastme}
 \alias{fastme.bal}
 \alias{fastme.ols}
@@ -34,7 +35,7 @@
 \seealso{
   \code{\link{nj}}, \code{\link{bionj}},
   \code{\link{write.tree}}, \code{\link{read.tree}},
-  \code{\link{dist.dna}}, \code{\link{mlphylo}}
+  \code{\link{dist.dna}}
 }
 \examples{
 ### From Saitou and Nei (1987, Table 1):
@@ -42,9 +43,10 @@ x <- c(7, 8, 11, 13, 16, 13, 17, 5, 8, 10, 13,
        10, 14, 5, 7, 10, 7, 11, 8, 11, 8, 12,
        5, 6, 10, 9, 13, 8)
 M <- matrix(0, 8, 8)
-M[row(M) > col(M)] <- x
-M[row(M) < col(M)] <- x
-rownames(M) <- colnames(M) <- 1:8
+M[lower.tri(M)] <- x
+M <- t(M)
+M[lower.tri(M)] <- x
+dimnames(M) <- list(1:8, 1:8)
 tr <- fastme.bal(M)
 plot(tr, "u")
 ### a less theoretical example