# NOT RUN {
annData<-data.frame(mtcars[,c("mpg","am","wt","gear")])
annData[,2]<-as.factor(annData[,2])
annData[,4]<-as.factor(annData[,4])
#Display annotation
# }
# NOT RUN {
showAnn(annData)
# }
# NOT RUN {
#Heatmap with annotation
heatmap3(t(mtcars),ColSideAnn=annData,ColSideFun=function(x)
showAnn(x),ColSideWidth=1.2,balanceColor=TRUE)
# }
Run the code above in your browser using DataLab