fullmousedatamat

heatmap2gist

library(gplots)

fullmousedatamat <- readRDS('fullmousedatamat')
partialmousedatamat <- readRDS('partialmousedatamat')

jdfs <- function(x) { as.dist(1-cor(t(x))) }

heatmap = heatmap.2(x=fullmousedatamat,
                    distfun=jdfs,
                    breaks=seq(-3, 3, by=0.4),
                    symbreaks=TRUE,
                    col=bluered,
                    margins=c(20,14),
                    trace='none', 
                    cexRow=1.5, 
                    cexCol=1.5, 
                    density.info='histogram', 
                    keysize=0.8,
                    key.title='Effect Size',
                    key.xlab='Relative to Wildtype',
                    symkey=TRUE)

heatmap = heatmap.2(x=partialmousedatamat,
                    distfun=jdfs,
                    breaks=seq(-3, 3, by=0.4),
                    symbreaks=TRUE,
                    col=bluered,
                    margins=c(20,14),
                    trace='none', 
                    cexRow=1.5, 
                    cexCol=1.5, 
                    density.info='histogram', 
                    keysize=0.8,
                    key.title='Effect Size',
                    key.xlab='Relative to Wildtype',
                    symkey=TRUE)

partialmousedatamat