# NOT RUN {
data(harville.lamb)
dat <- harville.lamb
dat <- transform(dat, line=factor(line), sire=factor(sire), damage=factor(damage))
library(lattice)
bwplot(weight ~ line, dat,
main="harville.lamb",
xlab="line", ylab="birth weights")
# }
# NOT RUN {
if(require(lme4) & require(lucid)){
m1 <- lmer(weight ~ -1 + line + damage + (1|sire), data=dat)
summary(m1)
vc(m1) # Khuri reports variances 0.5171, 2.9616
## grp var1 var2 vcov sdcor
## sire (Intercept) <NA> 0.5171 0.7191
## Residual <NA> <NA> 2.962 1.721
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab