# NOT RUN {
####=========================================####
#### 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)
# blup <- mix1$U$`Genotype:Check`$TSW
# blup
# }
Run the code above in your browser using DataLab