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