# NOT RUN {
library(nlme)
data(Oxide)
## Using fisher scoring algorithm:
varComp(Thickness~Source, Oxide, ~Lot/Wafer,
control=varComp.control(information='EI'))
## Using Newton-Raphson algorithm:
varComp(Thickness~Source, Oxide, ~Lot/Wafer,
control=varComp.control(information='OI'))
## Computing MINQUE0, residual contrasts, and marginal correlations of residual contrasts
varComp(Thickness~Source, Oxide, ~Lot/Wafer,
control=varComp.control(nlminb=nlminb.control(iter.max=0L)))
# }
Run the code above in your browser using DataLab