Problem 1
R Code is given below:
poll = read.csv ("C:/Users/GCE Employee/Desktop/WORK/DOWNLOADS/SR3971022/poll_data.csv")
model <- glm(vote_2008 ~.,family=binomial(link='logit'),data=poll)
summary(model)
anova(model, test="Chisq")

R Output is given below:
Analysis of Deviance Table
Model: binomial, link: logit
Response: vote_2008
Terms added sequentially (first to last)

               Df Deviance Resid. Df Resid. Dev Pr(>Chi)
NULL                               9999 13655.4
state             48 409.7    9951 13245.7 < 2.2e-16 ***
sex                1 33.4    9950 13212.4 7.537e-09 ***
race             3 1563.2    9947 11649.1 < 2.2e-16 ***
age                3 61.8    9944 11587.4 2.478e-13 ***
education          3 24.7    9941 11562.6 1.768e-05 ***
party             2 3964.0    9939 7598.7 < 2.2e-16 ***
ideology          2 767.4    9937 6831.3 < 2.2e-16 ***
state_contestedness 0    0.0    9937 6831.3
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

summary(model)
Call:
glm(formula = vote_2008 ~ ., family = binomial(link = "logit"),
data = poll)

Deviance Residuals:
Min    1Q Median    3Q    Max
-2.9262 -0.4898 -0.1453 0.4210 3.6397

Coefficients: (3 not defined because of singularities)

Directions: Place your answers on the templates provided. Show work...