## Define the map
require(Biobase)
data(sample.ExpressionSet)
ex1 = sample.ExpressionSet[51:85,]
map1 = annHeatmap2(exprs(ex1), ann=list(Col=list(data=pData(ex1))),
cluster=list(Col=list(cuth=3000)))
## Plot it
plot(map1)
## More heatmap, smaller dendrogram/annotation
map2 = plot(map1, heights = c(1,6,1))
## Compare layout before/after
with(map1$layout, layout(plot, width, height))
layout.show(4)
with(map2$layout, layout(plot, width, height))
layout.show(4)
Run the code above in your browser using DataLab