if (FALSE) {
library(asreml)
ginvA <- ainverse(warcolak)
ginvD <- makeD(warcolak[, 1:3])$listDinv
attr(ginvD, "rowNames") <- as.character(warcolak[, 1])
attr(ginvD, "INVERSE") <- TRUE
warcolak$IDD <- warcolak$ID
warcolak.mod <- asreml(trait1 ~ sex,
random = ~ vm(ID, ginvA) + vm(IDD, ginvD),
data = warcolak)
summary(warcolak.mod)$varcomp
aiCI(warcolak.mod)
}
Run the code above in your browser using DataLab