data(DT_yatesoats)
DT <- DT_yatesoats
head(DT)
mix <- lmebreed(Y ~ V + N + V:N +
(1|B) + (1|B:MP),
data = DT)
vc <- VarCorr(mix); print(vc,comp=c("Variance"))
sigma(mix)^2 # error variance
BLUP <- ranef(mix, condVar=TRUE)
PEV <- lapply(BLUP, function(x){attr(x, which="postVar")}) # take sqrt() for SEs
Run the code above in your browser using DataLab