#==================================================================================================================================================== 

# AULA 02
# MATERIA: ECONOMETRIA II
# PROFESSOR: DANIEL DOMINGUES DOS SANTOS
# MONITOR: DIEGO MENEZES
# R - VERSAO UTILIZADA: 3.4.0 (2017-04-21)

# SCRIPT: exercicio pratico -- variaveis instrumentais
# ETAPA: questao 03

#====================================================================================================================================================

# regressao primeiro estagio
reg1.q03 <- glm(healthinsu ~ ssiratio, data = iv_health, family = binomial(link = "probit"))

# output regressao - console
summary(reg1.q03)

# output regressao - exportacao html, latex, ...
setwd() # define o diretorio onde sera salvo o output da regressao
stargazer(reg1.q03, 
          type="html", dep.var.labels =  c("Seguro de Saude"), 
          covariate.labels = c("SSI/renda"), align = T, out="results_reg1_q03.html")

# regressao mq2e
reg2.q03 <- ivreg(logmedexpense ~ healthinsu | ssiratio, data = iv_health)

# output regressao - console
summary(reg2.q03)

# output regressao - exportacao html, latex, ...
setwd() # define o diretorio onde sera salvo o output da regressao
stargazer(reg2.q03, 
          type="html", dep.var.labels =  c("Log dos Gastos com Remedios"), 
          covariate.labels = c("Seguro de Saude"), align = T, out="results_reg2_q03.html")



# END OF SCRIPT -------------------------------------------------------------------------------------------------------------------------------------