How can I find the predicted probabilities for all three models.

Table 1: Predicted Probability of Supporting the ACA
	LPM	Probit	Logit
Democrat, No Insurance, Nonwhite
Democrat=0, Insurance=1, Nonwhite=0

dataset: https://canvas.eee.uci.edu/courses/1744/files/587832

library(readr) anes2016 <- read_csv("Downloads/anes2016.csv") View(anes2016) library(psych) #Run a linear probability model of Support for the ACA (Healthlaw) by partyid (Democrat), #race (Nonwhite), and whether the individual has insurance (Insurance) (1 point) model1 <- lm(Healthlaw ~ Democrat + Nonwhite + Insurance, data = anes2016) summary(model) #Logit model2 <- glm(Healthlaw ~ Democrat + Nonwhite + Insurance, family = binomial(link = probit), data = anes2016) summary(model3) #Probit model3 <- glm(Healthlaw ~ Democrat + Nonwhite + Insurance, family = binomial(link = logit), data = anes2016) summary(model2)