search for: mycolhr

Displaying 3 results from an estimated 3 matches for "mycolhr".

Did you mean: mycolhc
2010 Sep 08
1
saving heatmaps in graphical format that can be edited in graphic editor tool
...ale(t(mydatamatrix))) > hr <- hclust(as.dist(1-cor(t(mydatascale), method="pearson")), > method="complete") > hc <- hclust(as.dist(1-cor(mydatascale, method="spearman")), > method="complete") > myclhr <- cutree(hr, h=max(hr$height)/2); mycolhr <- sample(rainbow(256)); > myclhc <- cutree(hc, h=max(hc$height)/2); mycolhc <- sample(rainbow(256)); > mycolhr <- mycolhr[as.vector(myclhr)]; > mycolhc <- mycolhc[as.vector(myclhc)]; > library("gplots") > library("RSvgDevice") > jpeg("Heatm...
2010 Sep 08
2
saving heatmaps in graphical format that can be edited in graphic editor tools
...<- t(scale(t(mydatamatrix))) > hr <- hclust(as.dist(1-cor(t(mydatascale), method="pearson")), method="complete") > hc <- hclust(as.dist(1-cor(mydatascale, method="spearman")), method="complete") > myclhr <- cutree(hr, h=max(hr$height)/2); mycolhr <- sample(rainbow(256)); > myclhc <- cutree(hc, h=max(hc$height)/2); mycolhc <- sample(rainbow(256)); > mycolhr <- mycolhr[as.vector(myclhr)]; > mycolhc <- mycolhc[as.vector(myclhc)]; > library("gplots") > library("RSvgDevice") > jpeg("Hea...
2010 Sep 22
0
How to Ignore NaN values in Rows when using hclust function in making Heatmap??
...a) mydatascale <- t(scale(t(mydatamatrix))) hr <- hclust(as.dist(1-cor(t(mydatascale), method="pearson")), method="complete") hc <- hclust(as.dist(1-cor(mydatascale, method="spearman")), method="complete") myclhr <- cutree(hr, h=max(hr$height)/2); mycolhr <- sample(rainbow(256)); myclhc <- cutree(hc, h=max(hc$height)/2); mycolhc <- sample(rainbow(256)); mycolhr <- mycolhr[as.vector(myclhr)]; mycolhc <- mycolhc[as.vector(myclhc)]; jpeg("scaleRow.jpg", height=6+2/3, width=6+2/3, units="in", res=1200) heatmap.2(mydata...