# ###=========================================####
# ### AUGMENTED DESIGN EXAMPLE
# ###=========================================####
# data(DT_augment)
# DT <- DT_augment
# head(DT)
# ####=========================================####
# #### fit the mixed model and check summary
# ####=========================================####
# mix1 <- mmer(TSW ~ Check.Gen,
# random = ~ Block + Genotype:Check,
# data=DT)
# summary(mix1)$varcomp
#
# mix2 <- mmec(TSW ~ Check.Gen,
# random = ~ Block + Genotype:Check,
# data=DT)
# summary(mix2)$varcomp
Run the code above in your browser using DataLab