if (j != desc[length(desc)]) cp(",")
}
cp(")")
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]]))
if (brl) {
cp(":")
cp(sprintf(f.d, phy$edge.length[ind[i]]))
(o <- MPR(x, tr, "f"))
plot(tr)
nodelabels(paste("[", o[, 1], ",", o[, 2], "]", sep = ""))
(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)
## some random data:
x <- rpois(30, 1)
tr <- rtree(30, rooted = FALSE)