#create a data frame describing a cross-sectional parallel cluster
data(Salamanders, package = "glmmrBase")
if (FALSE) {
glm0 <- mcml_glmer(mating~fpop:mpop-1+(1|mnum)+(1|fnum),
data=Salamanders,family=binomial(),reml=FALSE)
glm1 <- mcml_glmer(mating~fpop:mpop-1+(1|mnum)+(1|fnum),
data =Salamanders, family=binomial(),reml=TRUE)
}
Run the code above in your browser using DataLab