# NOT RUN {
data(baseball)
anova.result<-EMSanova(velocity~Group+Subject+test,data=baseball,
type=c("F","R","F"),
nested=c(NA,"Group",NA),
level=c(1,1,2))
anova.result
# }
Run the code above in your browser using DataLab