data(Contraception)
str(Contraception)
summary(Contraception)
fm1 <- GLMM(use ~ urban+age+livch, family = binomial,
data = Contraception, random = ~ 1|district)
summary(fm1)
fm2 <- GLMM(use ~ urban+age+livch, family = binomial,
data = Contraception, random = ~ 1|district,
method = "Laplace")
summary(fm2)
fm3 <- GLMM(use ~ urban+age+livch, family = binomial,
data = Contraception, random = ~ urban|district)
summary(fm3)
Run the code above in your browser using DataLab