## Heatmap with column dendrogram, column annotation, default legend
dnd = list(Row=list(status="no"), Col=list(status="yes"))
ann = list(Row=list(data=NULL), Col=list(data=1))
## 1 = heatmap, 2=dendrogram, 3=annotation, 4=legend
ll = heatmapLayout(dendrogram=dnd, annotation=ann, leg.side=NULL, show=TRUE)
ll
Run the code above in your browser using DataCamp Workspace