rm(list = ls())
gc()

library("lmtest")  # for use with linear models

setwd('C:/Users/Benja/Downloads')

#Read Data
loadedData <- read.csv("DataForLogit.csv" , header=TRUE, sep=",")

#Normal Curve Version
glmmodel <- glm(formula = Dem_Win ~ Dem_Avg_Prior_Poll + Dominion,  data = loadedData, , family = 'gaussian')
summary(glmmodel)

#Binomial version
glmmodel <- glm(formula =  Dem_Win ~ Dem_Avg_Prior_Poll + Dominion,  data = loadedData, , family = binomial(link = "logit"))
summary(glmmodel)