Displaying 1 result from an estimated 1 matches for "crm_id".
Did you mean:
arm_id
2010 Apr 13
0
Coloring leaves in Dendrogram according to gene names
...), color=my_colors) #Creating
the data.frame
dhc<-as.dendrogram(fit.x) #the dendrogram using the hclust object (fit.x)
local({
colLab <<- function(n) {
if(is.leaf(n)) {
a <- attributes(n)
crm <- as.numeric(a$label)
gene <- as.character(bm[which(bm$CRM_ID==crm),5])
color <- as.character(gene2color[which(gene2color$genes==gene),2])
i <<- i+1
attr(n, "nodePar") <-
# c(a$nodePar, list(lab.col = my_colors[i], lab.font= i%%3))
c(a$nodePar, list(lab.col = color))
}
n
}
my_co...