Displaying 3 results from an estimated 3 matches for "myclhr".
Did you mean:
mycolhr
2010 Sep 08
1
saving heatmaps in graphical format that can be edited in graphic editor tool
...ta.matrix(mydata)
> 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)];
> library("gplots")
> library...
2010 Sep 08
2
saving heatmaps in graphical format that can be edited in graphic editor tools
...x <- data.matrix(mydata)
> 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)];
> library("gplots")
> libra...
2010 Sep 22
0
How to Ignore NaN values in Rows when using hclust function in making Heatmap??
...[,2:297]
mydatamatrix <- data.matrix(mydata)
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, un...