# simulated data set
esSim <- simulateData()
boxPlot(probesetId = 'Gene.1', object = esSim, groups = 'type', addLegend = FALSE)
# ALL data set
if (require(ALL)){
data(ALL, package = "ALL")
ALL <- addGeneInfo(ALL)
ALL$BTtype <- as.factor(substr(ALL$BT,0,1))
boxPlot(geneSymbol = 'HLA-DPB1', object = ALL, boxwex = 0.3,
groups = 'BTtype', colgroups = 'BT', legendPos='topright')
}
Run the code above in your browser using DataLab