```
library(pheatmap)
```
```
library(knitr)
```
```
alllarv<- read.csv("/Volumes/web/Mollusk/bs_larvae_exp/pheatmap_clustering/filt5_BiGoLarvae_common.csv", header=T)
```
```
head(alllarv)
```
```
M1ID<-alllarv$M1ID
```
```
M1<-alllarv$M1ratio
```
```
M3<-alllarv$M3ratio
```
```
T1D3<-alllarv$T1D3ratio
```
```
T1D5<-alllarv$T1D5ratio
```
```
T3D3<-alllarv$T3D3ratio
```
```
T3D5<-alllarv$T3D5ratio
```
```
alllarv<-data.frame(cbind(M1,M3,T1D3,T1D5,T3D3,T3D5))
```
```
head(alllarv)
```
pheatmap(alllarv, cluster_rows=T, cluster_cols=T, clustering_distance_rows='euclidean', clustering_distance_cols='euclidean', clustering_method='average')
```
```
pheatmap(cor(alllarv), display_numbers = T)
```