# incomplete blocks type I and II
# Pimentel Gomes and Garcia (2002)
data(data11)
data(data12)
#r1<-ea7(data11,1)
#r2<-ea7(data12,1)
#r1;r2
#r1[1];r2[1]
#r1[4];r2[4]
# incomplete blocks type III or augmented blocks
# Cruz and Carneiro (2006)
data(data13)
#r3<-ea7(data13, 2)
#r3
# see time: time<-system.time(ea7(data13, 2))
# incomplete blocks type III in animal experiments
# Sampaio (2010)
data(data14)
r4<-ea7(data14, 3)
r4
# lattice
# Pimentel Gomes and Garcia (2002)
data(data15)
#r5<-ea7(data15, 4) # intra-block analysis
#r6<-ea7(data15, 5) # inter-block analysis
#r5
#r6
Run the code above in your browser using DataLab