####################Three group comparison###################
# load data
data(GroupComp.data)
# Read the expression values
brain.express.set <- exprs(GroupComp.data)
head(brain.express.set)
# Read the phenotype
brain.pheno.data <- pData(GroupComp.data)
brain.pheno.data[,1]
# ANOVA test
row.oneway.anova(brain.express.set,brain.pheno.data[,1])Run the code above in your browser using DataLab