powered by
Archaeo
str(Archaeo) attach(Archaeo) boxplot(age~phase,col="yellow",main="Example 1.16",xlab="Phase",ylab="Age") anova(lm(age~as.factor(phase))) detach(Archaeo)
Run the code above in your browser using DataLab