# NOT RUN {
data("salamander")
# }
# NOT RUN {
<!-- % in test-salamander.R -->
if (spaMM.getOption("example_maxtime")>0.7) {
HLfit(cbind(Mate,1-Mate)~TypeF+TypeM+TypeF*TypeM+(1|Female)+(1|Male),
family=binomial(),data=salamander,HLmethod="ML",control.HLfit=list(LevenbergM=FALSE))
}
# }
# NOT RUN {
if (spaMM.getOption("example_maxtime")>0.7) {
fitme(cbind(Mate,1-Mate)~TypeF+TypeM+TypeF*TypeM+(1|Female)+(1|Male),
family=binomial(),data=salamander,control.HLfit=list(LevenbergM=FALSE))
}
# }
Run the code above in your browser using DataLab