# predict whether respondent has a university degree
require(effects)
data(WVS)
logit.model <- glm(degree ~ religion + gender + age, data=WVS, family=binomial(link="logit"))
summary(logit.model)
# compute pairs cluster bootstrapped p-values
clust.bs.p <- cluster.bs(logit.model, WVS, ~ country, report = T)Run the code above in your browser using DataLab