## Fit model on oats.data
data(oats.data)
## Fit simple model with only fixed effects.
LMM1 <- LMMsolve(fixed = yield ~ rep + gen,
data = oats.data)
## Obtain deviance.
deviance(LMM1)
Run the code above in your browser using DataLab