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

# 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 01

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

# regressao naive
reg1.q01 <- lm(formula = logmedexpense ~ healthinsu, data = iv_health)

# output regressao - console
summary(reg1.q01)

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


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