j daniel wrote:
>
>
> I would like to print the "address" of the smaller dendrograms on the edge
> similar to this:
>
> addr <- function(n) {
> if(!is.leaf(n)) {
> attr(n, "edgetext") <- paste("height of",(attr(n,"height"))
> }
> n
> }
> labeledDends <- dendrapply(de
j daniel wrote:
>
>
> I would like to print the "address" of the smaller dendrograms on the edge
> similar to this:
>
> addr <- function(n) {
> if(!is.leaf(n)) {
> attr(n, "edgetext") <- paste("height of",(attr(n,"height"))
> }
> n
> }
> labeledDends <- dendrapply(de
Hi!
To label your dendrogram edges with the path to each of them, execute the
following script (assuming that your dendrogram is 'dend', see last 2
lines).
dendrapplyGlobal <- function(dend,attrName,FUN,...,attrNameTo=NULL) {
if (is.null(attrNameTo)) {
attrNameTo <- attr
3 matches
Mail list logo