#==================================================================================================================================================== # 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 04 #==================================================================================================================================================== # regressao mq2e reg1.q04 <- ivreg(logmedexpense ~ healthinsu + illnesses + age + logincome | ssiratio + illnesses + age + logincome, data = iv_health) # regressao mq2e acima usando funcao reg1.q04.alt <- function (x) { # funcao que realiza a regressao iv no instrumento e nos controles escolhidos ivreg(logmedexpense ~ healthinsu + illnesses + age + logincome | ssiratio + illnesses + age + logincome, data = x) } # output regressao - console summary(reg1.q04) summary(reg1.q04.alt(iv_health)) # output regressao - exportacao html, latex, ... setwd() # define o diretorio onde sera salvo o output da regressao stargazer(reg1.q04, type="html", dep.var.labels = c("Log dos Gastos com Remedios"), covariate.labels = c("Seguro de Saude", "Doencas/Ano", "Idade", "Log da Renda"), align = T, out="results_reg1_q04.html") stargazer(reg1.q04.alt(iv_health), type="html", dep.var.labels = c("Log dos Gastos com Remedios"), covariate.labels = c("Seguro de Saude", "Doencas/Ano", "Idade", "Log da Renda"), align = T, out="results_reg1_q04_alt.html") # contextualização dos dois resultados setwd() # define o diretorio onde sera salvo o output da regressao stargazer(reg2.q03, reg1.q04, type = "html", dep.var.labels = c("Log dos Gastos com Remedios"), covariate.labels = c("Seguro de Saude", "Doencas/Ano", "Idade", "Log da Renda"), align = T, out="results_contexto.html") # END OF SCRIPT -------------------------------------------------------------------------------------------------------------------------------------