Displaying 1 result from an estimated 1 matches for "nodescontaincertainleaves".
2009 Apr 03
0
dendrogram rect.hclust() not working?
...called markSignificantClusters(), in which I try to draw a
rect.hclust() if a condition is met (i.e. a cluster is statistically
significant):
markSignificantClusters <<- function (n) {
if (!is.leaf(n)) {
a <- attributes(n)
leafList <- unlist(dendrapply(n, listLabels))
if (nodesContainCertainLeaves) {
ma <- match(leafList, orderedLabels)
print (paste ("min-ma", min(ma), "max-ma", max(ma), sep=" "))
r <- rect.hclust(scoreClusterObj, h = a$height, which = c(min(ma),
max(ma)), border = 2)
print (r)
quit()
}
}
}
For testing, I have a call t...