# NOT RUN {
data(PhyloExpressionSetExample)
# generate an example gene set
set.seed(123)
ExGeneSet <- sample(PhyloExpressionSetExample[ , 2], 5000)
# gene count example
PlotSelectedAgeDistr(ExpressionSet = PhyloExpressionSetExample,
gene.set = ExGeneSet,
legendName = "PS",
as.ratio = TRUE)
# relative gene count example
PlotSelectedAgeDistr(ExpressionSet = PhyloExpressionSetExample,
gene.set = ExGeneSet,
legendName = "PS",
as.ratio = FALSE)
# }
Run the code above in your browser using DataLab