####################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]
row.kruskal.wallis(brain.express.set,brain.pheno.data[,1])Run the code above in your browser using DataLab