fix bug in seg.sites + improved Damien's man pages

[ape.git] / R / dist.topo.R

diff --git a/R/dist.topo.R b/R/dist.topo.R
index 04313b43a0a8ae0ad9f37e1e3bc6e8a85ad977d9..703f92d124509a3898d59e894f02e7bfe8aa8f48 100644 (file)
--- a/R/dist.topo.R
+++ b/R/dist.topo.R
@@ -128,7 +128,7 @@ plot.prop.part <- function(x, barcol = "blue", leftmar = 4, ...)
     layout(matrix(1:2, 2, 1), heights = c(1, 3))
     par(mar = c(0.1, leftmar, 0.1, 0.1))
     plot(1:L, attr(x, "number"), type = "h", col = barcol, xlim = c(1, L),
-         xlab = "", ylab = "Number", xaxt = "n", bty = "n")
+         xlab = "", ylab = "Frequency", xaxt = "n", bty = "n")
     plot(0, type = "n", xlim = c(1, L), ylim = c(1, n),
          xlab = "", ylab = "", xaxt = "n", yaxt = "n")
     for (i in 1:L) points(rep(i, length(x[[i]])), x[[i]], ...)