# NOT RUN {
data(upGAm)
data(pathwy.A.up)
pathwayup<-pathwy.A.up
colclass=c("1","1","1","1","2","2","2","2","2","2")
oldpar <- par(no.readonly =TRUE)
on.exit(par(oldpar))
par(mar=c(7.5,5.5,3.5,3))
par(oma=c(3,1,1,10))
pathwayHeatmap(dat=upGAm,pathway=pathwayup,nci=1,
r1=4,r2=6,colclass=colclass,rowclass=NULL,
colrs="greenred",maptitle="pathway up-expression
in Group A")
# }
Run the code above in your browser using DataLab