Displaying 1 result from an estimated 1 matches for "segmentshv".
Did you mean:
segments
2005 Oct 23
1
Coloring leaves, twigs and labels in plot.dendrogram()
...ounter - 1]
if(is.null(twig.col) &&
is.null(leaf.col)){
leafcounter <- leafcounter + 1
}
}
text(X, Y, nodeText, xpd = TRUE, srt = srt, adj =
adj,
cex = lab.cex, col = lab.col, font = lab.font)
}
}
else if (inner) {
segmentsHV <- function(x0, y0, x1, y1, ...) {
if (horiz)
segments(y0, x0, y1, x1, ...)
else segments(x0, y0, x1, y1, ...)
}
for (k in 1:length(subtree)) {
child <- subtree[[k]]
yBot <- attr(child, "height")...