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