From 8de6df204b26f081f2a4c70a500ab97660380692 Mon Sep 17 00:00:00 2001 From: paradis Date: Thu, 7 Oct 2010 10:04:09 +0000 Subject: [PATCH] correcting a bug in write.tree + error in MPR examples git-svn-id: https://svn.mpl.ird.fr/ape/dev/ape@131 6e262413-ae40-0410-9e79-b911bd7a66b7 --- R/write.tree.R | 2 +- man/MPR.Rd | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/R/write.tree.R b/R/write.tree.R index 934cda6..20e74ad 100644 --- a/R/write.tree.R +++ b/R/write.tree.R @@ -68,7 +68,7 @@ write.tree <- if (j != desc[length(desc)]) cp(",") } cp(")") - if (nodelab) cp(phy$node.label[ind[i] - n]) + if (nodelab && ind[i] > n) cp(phy$node.label[ind[i] - n]) if (brl) { cp(":") cp(sprintf(f.d, phy$edge.length[ind[i]])) 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) -- 2.39.2