if (FALSE) {
library(agridat)
data(onyiah.maize)
dat <- onyiah.maize
# anova
dat <- transform(dat, loc=factor(loc), gen=factor(gen),
greek=factor(greek), latin=factor(latin))
m1 <- aov(yield ~ loc + gen + greek + latin, data=dat)
anova(m1)
}
Run the code above in your browser using DataLab