Playing with Heatmaps
========================================================

Mac's Code
```{r}
#install.packages("gplots")
#install.packages("RColorBrewer")
library(RColorBrewer)
library(gplots)
```

```{r}
oys.exp<-read.csv("http://eagle.fish.washington.edu/cnidarian/alloysterexp_test.csv",header=TRUE,row.names=1)
```

```{r}
#logtransform
oyslog<-data.trans(oys.exp,method='log',plot=F)
#transpose
oyslogt<-t(oyslog)
```


```{r}
mat=data.matrix(oys.exp)
pdf("test.pdf", height=10, width=10)
heatmap.2(mat,
Rowv=TRUE,
Colv=TRUE,
#    dendrogram= c("none"),
distfun = dist,
hclustfun = hclust,
xlab = "X data", ylab = "Y data",
key=TRUE,
keysize=1,
trace="none",
density.info=c("none"),
margins=c(10, 8),
col=brewer.pal(10,"PiYG")
#    col=redgreen(75),
)
dev.off()
```

<img src="http://eagle.fish.washington.edu/cnidarian/skitch/test_pdf__1_page__191D2160.png" width=60% alt="test_pdf__1_page__191D2160.png"/>
