#==================================================================================================================================================== # 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 01 #==================================================================================================================================================== # criacao tabela de medias c_mean <- apply(controle, 2, mean) t_mean <- apply(tratados, 2, mean) medias <- cbind(t_mean, c_mean) colnames(medias) <- c("Tratamento", "Controle") medias # testes-t t.test(tratados$gender, controle$gender) t.test(tratados$age, controle$age) t.test(tratados$study, controle$study) # regressao reg <- glm(treat ~ age + gender + study, family = binomial(link = "probit"), data = base) summary(reg) # END OF SCRIPT -------------------------------------------------------------------------------------------------------------------------------------