#Kaps and Lamberson (2009)
data(data7)
data(data8)
# analysis in completely randomized design (Autoregressive)
r1<-ea3(data7,1,1)
names(r1)
r1[15]
# analysis in randomized design (Compound Symetry)
r2<-ea3(data7,4,1)
r2["Adjusted Means (interaction)"]
# comparing models
r1[2];r2[c(2,15)]
# analysis in randomized block design (option 2, the third argument)
r3<-ea3(data8,1,2) # Autoregressive
names(r3)
r3["Evaluated Structures" ]
r4<-ea3(data8,4,2) # Compound Symetry
r4[1]
r4[10]
r4[11]
Run the code above in your browser using DataLab