# NOT RUN {
## Variation on example(flatlizards)
result <- rep(1, nrow(flatlizards$contests))
## BTm passes arguments on to glmmPQL.control()
args(BTm)
BTmodel <- BTm(result, winner, loser, ~ throat.PC1[..] + throat.PC3[..] +
head.length[..] + SVL[..] + (1|..),
data = flatlizards, tol = 1e-3, trace = TRUE)
summary(BTmodel)
# }
Run the code above in your browser using DataLab