correcting a bug in write.tree + error in MPR examples

[ape.git] / man / MPR.Rd

diff --git a/man/MPR.Rd b/man/MPR.Rd
index 98b5a0ceb188af809ca8b48966effba0faa1f78f..cf4e69a7bcce246fd5bc937f13ea89e20d0f9edf 100644 (file)
--- a/man/MPR.Rd
+++ b/man/MPR.Rd
@@ -60,7 +60,7 @@ names(x) <- letters[6:12]
 (o <- MPR(x, tr, "f"))
 plot(tr)
 nodelabels(paste("[", o[, 1], ",", o[, 2], "]", sep = ""))
-tiplabels(rev(x), adj = -2)
+tiplabels(x[tr$tip.label], adj = -2)
 ## some random data:
 x <- rpois(30, 1)
 tr <- rtree(30, rooted = FALSE)