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

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

# SCRIPT: exercicio pratico -- experimento aleatorio
# ETAPA: questao 02

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

# DIFERENCA DE MEDIAS

# impacto enem
mean(tratados$enem) - mean(controle$enem)

# impacto aprovacao
mean(tratados$em) - mean(controle$em)

# REGRESSAO NAIVE

# impacto enem
reg_enem <- lm(enem ~ treat, data = base)
summary(reg_enem)

# impacto aprovacao
reg_em <- lm(em ~ treat, data = base)
summary(reg_em)


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