# Kaps and Lamberson (2009)
data(data5)
# analysis in completely randomized design
r1<-ea2(data5)
names(r1)
r1["Multiple comparison test (factor 1)"]
r1[10]
r1[c(7,8,9)]
r1
# Pimentel Gomes and Garcia (2002)
data(data6)
# analysis in randomized block design
r2<-ea2(data6)
r2
r1[1];r2[1]
Run the code above in your browser using DataLab