X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=man%2FMPR.Rd;h=cf4e69a7bcce246fd5bc937f13ea89e20d0f9edf;hb=12b407de3b6d3a160eb2ebd48d005da328735206;hp=98b5a0ceb188af809ca8b48966effba0faa1f78f;hpb=f295ab19440298e543db5a270e54f10a84382197;p=ape.git

diff --git a/man/MPR.Rd b/man/MPR.Rd
index 98b5a0c..cf4e69a 100644
--- 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)