# NOT RUN {
library(synbreedData)
data(maize)
maizeC <- codeGeno(maize)
# marker-based (realized) relationship matrix
U <- kin(maizeC,ret="realized")/2
# BLUP model
mod <- gpMod(maizeC,model="BLUP",kin=U)
summary(mod)
# }
Run the code above in your browser using DataLab