# NOT RUN {
data(AndersonBias)
model = glm(Result ~ County + Gender + County:Gender,
weight = Count,
data = AndersonBias,
family = binomial(link="logit"))
countRSquare(model)
# }
Run the code above in your browser using DataLab