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

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

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

# removendo aleatoriamente 10% dos grupos
ncontrole <- controle[-sample(1:nc, 0.1*nc),]
ntratados <- tratados[-sample(1:nt, 0.1*nt),]

nbase = rbind(ntratados, ncontrole)

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