# NOT RUN {
library(nlme)
data(Oxide)
lmef = lme(Thickness~Source, Oxide, ~1|Lot/Wafer)
anova(lmef)
vcf = varComp(Thickness~Source, Oxide, ~Lot/Wafer)
KR.varComp(vcf, matrix(c(0,1), 1)) # test Source effect
satterth.varComp(vcf, matrix(c(0,1), 1)) # d.f. for testing Source effect
# }
Run the code above in your browser using DataLab