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...