X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=man%2Ffastme.Rd;h=9174b48cca957c76676437b2bcd523c65eff33ec;hb=d1546ec66ff1a8ea123adefebe14f6316c23705f;hp=d29d305e851e1ebcb9b85b6f1925e0ecda609c7f;hpb=6a2fafede27a5cf6a5aafef7c9b56e78635eaeb4;p=ape.git

diff --git a/man/fastme.Rd b/man/fastme.Rd
index d29d305..9174b48 100644
--- a/man/fastme.Rd
+++ b/man/fastme.Rd
@@ -42,9 +42,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