# Sampaio (2010)
data(data9)
# analysis in completely randomized design
ndata<-data9[-4]
r1<-ea4(ndata)
names(r1)
r1["Adjusted means (treatments_f1f2)"]
r1["Adjusted means (treatments_f1f2f3)"]
r1[c(4,5,6)]
r1
# analysis in randomized block design
r2<-ea4(data9)
r1[1];r2[1]
r2
Run the code above in your browser using DataLab