data("hayman54")
contrasts(hayman54$Block) <- "contr.sum"
dMod<-lm(Ftime ~ Block + GCA(Par1,Par2)
+ tSCA(Par1, Par2) + RGCA(Par1, Par2)
+ RSCA(Par1,Par2), data = hayman54)
anova(dMod)
Run the code above in your browser using DataLab