#data3: Kaps and Lamberson (2009): page 347
#Description:
##Latin square design for test four different treatments on hay intake of fattening steers
data(data3)
r<-ea1(data3, design=3)
#plot
#means
means=r[[2]]
means
ic(means, test=1, df=6) # tukey
# alpha = 0.10
ic(r[[2]], test=1, df=6, alpha=0.10)
# split plot
data('data7')
r<-ea2(data7,4)
#plot
ic(r[2], df=15)
#split.plot
ic(r[4], df=45)
Run the code above in your browser using DataLab