Kosuke QSS 4.5.1.5

Carregando os bancos de dados

intrade08 <- read.csv("C:/Users/Priscila/Documents/LEGO I/intrade08.csv")
intrade12 <- read.csv("C:/Users/Priscila/Documents/LEGO I/intrade12.csv")
pres08 <- read.csv("C:/Users/Priscila/Documents/LEGO I/pres08.csv")
pres12 <- read.csv("C:/Users/Priscila/Documents/LEGO I/pres12.csv")
polls08 <- read.csv("C:/Users/Priscila/Documents/LEGO I/polls08.csv")

Verificando a margem de apostas no dia anterior à eleição

price_DB <- subset(intrade08, intrade08$day == "2008-11-03")

#### Democratas
obama_price_DB <- price_DB$PriceD 

#### Republicanos
mccain_price_DB <- price_DB$PriceR

#### Margem
margin_price_DB <- obama_price_DB - mccain_price_DB 

Verificando a porcentagem de votos

#### Porcentagem de votos Obama
obama_v_08 <- pres08$Obama

#### Porcentagem de votos McCain
mccain_v_08 <- pres08$McCain

#### Margem
margin_v_08 <- obama_v_08 - mccain_v_08

Regressão

regressão_eleicao_08 <- lm( margin_v_08 ~ margin_price_DB)

#### Visualização da regressão
plot(margin_price_DB, margin_v_08, pch = 20, col = "#c70e9c")
abline(regressão_eleicao_08)