data(HDdata)
head(HDdata)
#### GCA matrix for half diallel using male and female columns
#### use the 'hdm' function to create the half diallel matrix
#Z1 <- hdm(HDdata[,c(3:4)])
#### SCA matrix
#Z2 <- model.matrix(~as.factor(geno)-1, data=HDdata)
#### response variable
#y <- HDdata$sugar
#ETA <- list(list(Z=Z1), list(Z=Z2)) # Zu component
#modHD <- mmer(y=y, Z=ETA, draw=FALSE, silent=TRUE)
#summary(modHD)
Run the code above in your browser using DataLab