if (require(ALL)){
data(ALL, package = "ALL")
ALL <- addGeneInfo(ALL)
# one variable (specified by groups)
aa <- plot1gene(geneSymbol = 'HLA-DPB1', object = ALL, groups = "BT",
addLegend = TRUE, legendPos = 'topright')
aa
# two variables (specified by groups and colGroups)
ALL$BTtype <- as.factor(substr(ALL$BT,0,1))
plot1gene(probeset = '1636_g_at', object = ALL, groups = 'BT',
colgroups = 'mol.biol', legendPos='topright', sampleIDs = 'BT')
}
Run the code above in your browser using DataLab