Displaying 1 result from an estimated 1 matches for "makerects".
2012 Jun 06
0
heatmap.2 clustering and adding add.expr
...plot a heatmap with a correlation matrix and trying to
highlight significant correlations .
i am using
my matrix d874n has 78 columns
ex2<-corAndPvalue(data.matrix(d874n),use = "pairwise.complete.obs")
##creating a matrix of true false using p values
sig<-ex2$p<0.05
nx=78
ny=78
makeRects <- function(tfMat,border){
cAbove = expand.grid(1:nx,1:ny)[tfMat,]
xl=cAbove[,1]-0.49
yb=cAbove[,2]-0.49
xr=cAbove[,1]+0.49
yt=cAbove[,2]+0.49
rect(xl,yb,xr,yt,border=border,lwd=3)
}
###heatmap without reordering ##############
heatmap.2(ex2$cor,Colv=FALSE,dendrogram="none"...