# NOT RUN {
data(PhyloExpressionSetExample)
PlotGroupDiffs(ExpressionSet = PhyloExpressionSetExample,
Groups = list(group_1 = 1:3,group_2 = 4:12),
legendName = "PS",
type = "b",
lwd = 6,
xlab = "Ontogeny")
# only receive the p-values without the corresponding plot
PlotGroupDiffs(ExpressionSet = PhyloExpressionSetExample,
Groups = list(group_1 = 1:3,group_2 = 4:12),
legendName = "PS",
plot.p.vals = FALSE,
type = "b",
lwd = 6,
xlab = "Ontogeny")
# quantify the significant difference of a selected set of genes
# only receive the p-values without the corresponding plot
set.seed(123)
ExampleGeneSet <- sample(PhyloExpressionSetExample[ , 2],5000)
PlotGroupDiffs(ExpressionSet = PhyloExpressionSetExample,
Groups = list(group_1 = 1:3,group_2 = 4:12),
legendName = "PS",
plot.p.vals = FALSE,
gene.set = ExampleGeneSet)
# plot differences as boxplot for each developmental stage
PlotGroupDiffs(ExpressionSet = tf(PhyloExpressionSetExample,log2),
Groups = list(group_1 = 1:3,group_2 = 4:12),
legendName = "PS",
plot.type = "boxplot")
# }
Run the code above in your browser using DataLab