str(Median)
attach(Median)
STACKED <-stack(Median)
STACKED[1:5,]
boxplot(values~ind,col=c("red","blue","green"),data=STACKED)
anova(lm(values~ind,data=STACKED))
kruskal.test(values~ind,data=STACKED)
remove(STACKED)
detach(Median)
Run the code above in your browser using DataLab