Hi, I am doing a political science project on voting behavior and trying to make a regression.

```
Model_2<-glm(gop_positive~dem_angry, data= my_data_set, family="binomial")
summary(Model_2)
plot(gop_positive, dem_angry, main = "Model Graphed",
xlab = "Is There Anything the Respondent Likes About Trump?",
ylab = "How Often does Respondent Feel Angry Towards Clinton?",
pch = 19)
```

I do this and get a bar graph that is accurate and I'm going to use it, but i need to get a regression and it's not doing that.