# \donttest{
library(lme4)
library(agridat)
library(agriutilities)
dat <- john.alpha
g.ran <- lmer(
formula = yield ~ rep + (1 | gen) + (1 | rep:block),
data = dat
)
h_cullis(model = g.ran, genotype = "gen")
# }
Run the code above in your browser using DataLab