# NOT RUN {
## Fit a mixed model.
geVarComp <- gxeVarComp(TD = TDMaize, trait = "yld")
## Predictions at genotype level.
predGeno <- predict(geVarComp)
head(predGeno)
## Predictions at genotype x trial level.
predGenoTrial <- predict(geVarComp, predictLevel = "trial")
head(predGenoTrial)
# }
Run the code above in your browser using DataLab