# An extended quasi-likelihood (EQL) fit as considered by Lee & Nelder (1996):
data("seeds")
fitme(cbind(r,n-r)~seed*extract+(1|plate),family=binomial(),
rand.family=Beta(),
method="EQL-", # see help("method") for difference with "EQL+" method
data=seeds)
Run the code above in your browser using DataLab